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ABSTRACT 
i 
This  paper  presents  a  computer  language  translator  which 

allows  the  IBM  FORTRAN  G  (or  higher  level)  user  to  solve 
directly  problems  in  which  the  variables  may  be  n-tuples 
and/or  the  FORTRAN  arithmetic  and  relational  operations  may 
be  defined  by  the  user.   The  translator,  called  the  NSFORT 
(for  Nonstandard  FORTRAN)  translator,  will  (1)  decompose  all 
expressions  to~a  series  of  binary  arithmetic  operations, 
relational  operations,  or  user  defined  functions;  (2)  gen- 
erate CALL  statements  to  user  supplied  subprograms  to 
perform  the  above  operations;  and  (3)  produce  a  new  source 
program  that  is  in  every  respect  acceptable  to  the  FORTRAN 
compiler.   While  using  the  NSFORT  translator  the  user  has 
virtually  unrestricted  us~e  of  FORTRAN.   The  translator's 
applications  include  n-precision  arithmetic,  vector  and 
matrix  operations ,  numerically  evaluated  analytic  deriv- 
atives, interval  arithmetic,  and  others.   The  paper  describes 
completely  the  use  and  operation  of  the  translator,  pro- 
vides examples,  indicates  applications,  and  discusses,, 
programming  techniques. 


TABLE  OP  CONTENTS 


I.  INTRODUCTION  5 

II.  TRANSLATOR  DESCRIPTION  AND  OPERATION  11 

III.  PROBLEMS  AND  TECHNIQUES 18 


APPENDIX  A 
APPENDIX  B 

APPENDIX  C 
APPENDIX  D 
APPENDIX  E 
APPENDIX  F 


APPENDIX  G 
APPENDIX  H 
APPENDIX  I 


NSFORT  TRANSLATOR  PROGRAM ■ 22 

JOB  CONTROL  LANGUAGE  USED  WITH  THE 

NSFORT  TRANSLATOR  36 

NSFORT  TRANSLATOR  PROGRAM  DESCRIPTION  4l 

SYNTAX  RULES  FOR  NSFORT  STATEMENTS  106 

SUMMARY  OF  NSFORT  CODES  109 


TRANSLATOR  ACTION  FOR  SPECIFIC 
FORTRAN  AND  NONSTANDARD  FORTRAN 
STATEMENTS •— 


112 


RESULT  TYPE  OF  MIXED  TYPE  OPERATIONS  128 

DESIGN  LIMITATIONS  AND  RESTRICTIONS  129 

NSFORT  DIAGNOSTIC  MESSAGES *-  135 

LIST  OF  REFERENCES  ■ 152 

INITIAL  DISTRIBUTION  LIST  153 

FORM  DD  1473 155 


/ 


f 


\ 


' 


// 


I.   INTRODUCTION 

l 
i 

The  FORTRAN  IV  programming  language  allows  the  user  to 
evaluate  algebraic  expressions  when  the  variables  are  real, 
complex,  or  logical  scalers,  and  when  the  operations  are  any 
of  the  standard  FORTRAN*  set  of  arithmetic,  relational,  or 
logical  operators.   The  user  has  some  flexibility  with 
FORTRAN  and  user  defined  functions  as  long  as  the  result  is 
also  real,  complex,  or  logical.   FORTRAN  lacks  the  capability 
to  solve  directly  a  problem  in  which  the  variables  are 
n-tuples  and/or  the  operations  are  not  part  of  the  standard 
FORTRAN  set. 

This  paper  presents  a  language  translator  (or  precom- 
piler) ,  which  allows  the  user  to  define  a  nonstandard 
variable  type  (as  opposed- to  COMPLEX,  INTEGER,  LOGICAL,  or 
REAL).   As  a  consequence,  the  arithmetic  and  relational 
operators  become  undefined  in  the  usual  sense.   Thus,  this 
translator  allows  the  user  to  evaluate  statements  such  as 
A  =  B  © C  where  A,  B,  and  C  may  be  scalers  or  n-tuples  and 
®  may  be  defined  any  way  the  user  wishes  (see  Chapter  II). 
This  translator  will  be  referred  to  as  the  NSFORT  translator 
(for  Nonstandard  FORTRAN). 

As  an  example,  assume  FORTRAN  IV  did  not  have  the 
capability  to  handle  complex  operations  am3  the  user  wished 


*Whenever  the  words  "FORTRAN,"  "FORTRAN  IV,"  or  any  of 
its  variations  are  used  herein,  that  implication'refers  to 
IBM  FORTRAN  G-level  or  higher  (i.e.  H,  44PS,  and  TSS) . 


to  find  the  product  of  two  complex  numbers.   Using  the 
NSFORT  translator  the  user  could  write  the  following  program 


N0NSTANDARD1*2  A,B,C 

C  =  A*B 

END 


After  translation   the   program  would  be   the    following 


C 
C 

C        GENERATED  FORTRAN  SOURCE  PROGRAM 


REAL*4  T$A(2,1) 

REALM  A(2)  ,B(2)  ,C(2) 

CALL  N$AAMA  (T$A(1,1),  A(l),  B(l)) 

CALL  N$AA    (C(l)  ,  T$A(1  ,1)) 

END 


By  supplying  the  following  two  subprograms  the  user  is  able 
to  obtain  the  desired  result. 


SUBROUTINE  N$AAMA  (X,A,B) 

REALM  X(2)  ,A(2)  ,B(2) 

X(1)=A(1)*B(1)-A(2)*B(2) 

X(2)=A(1)*B(2)+A(2)*B(1 ) 

RETURN 

END 

SUBROUTINE  N$AA  (C,X) 

REAL*4  C(2)  ,X(2) 

C(1)=X(1) 

C(2)=X(2) 

RETURN 

END 


As  a  second  example  take  the  problem  of  evaluating  a 
vector  (or  cross)  product  of  two  3  element  vectors.   The 
user  can  write  the  NSFORT  program  and  the  two  subprograms 
below.  .- 


NONSTANDARD! *3  A,B,C 

C  =  A*B 

END 

SUBROUTINE  N$AAMA  (X,A,B) 
REALM  X(3)  ,A(3) ,B(3) 
X(l )=A(2)*B(3)-B(2)*A(3) 
X(2)=A(3)*B(1 )-B(3)*A(l ) 
X(3)=A(1 )*B(2)-B(1)*A(2) 
RETURN 
END 

SUBROUTINE  N$AA  (C,X) 

REALM  C(3)  ,X(3) 

C(1)=X(1) 

C(2)=X(2) 

C(3)=X(3) 

RETURN 

END 


The  translated  main  program  is  as  follows. 


C 
C 

C        GENERATED  FORTRAN  SOURCE  PROGRAM 


C 
C 


REAL*4  T$A(3,1) 

REAL*4  A(3)  ,B(3) ,C(3) 

CALL  N$AAMA  (T$A(1,1),  A(l),  B(l)) 

CALL  N$AA    (C(l)  ,  T$A(1  ,1)) 

END 


The  codes  used  in  the  above  examples  will  be  fully 
explained  later  but  briefly  the  A's  in  the  subroutine  names 
represent  the  variable  types  of  the  arguments,  respectively, 
and  the  M  is  an  abbreviation  for  "multiply."   The  T$A  is  a 
temporary  variable  with  A  being  the  variable  type. 

It  should  be  noted  that  for  the  two  almost  identical 
main  programs  above,  two  totally  different  operations  can  be 
performed  simply  by  supplying  different  subroutines. 


The  NSFORT  translator  performs  another  significant  task 

not  illustrated  in  the  above  two  examples.   The  translator 

i 

decomposes  all  expressions  containing  nonstandard  variables 
into  a  sequence  of  elementary  operations  just  as  the  assign- 
ment statements  above  were  decomposed  into  two  elementary 
operations.   (In  the  case  above  the  two  operations  were 
multiplication  and  simple  assignment.)   Thus  the  user  has 
only  to  supply  the  subroutines  for  the  several  elementary 
operations  used  in  the  program  and  then  any  complicated 
expression  using  several  elementary  operations  and  a  mixture 
of  variable  types  can  be  evaluated. 

Specifically  the  NSFORT  translator  will  translate  a 
nonstandard  FORTRAN  program  into  a  normal  FORTRAN  program 
acceptable  to  the  FORTRAN  compiler.   The  resulting  FORTRAN 
program  will  have  the  following  features:   (1)  All  nonstan- 
dard variables,  arrays,  and  functions  will  be  mapped  into 
conventional  variables,  arrays,  and  functions  of  determined 
type  and  determined  dimension.   (2)  All  arithmetic  and  . 
logical  expressions  containing  nonstandard  variables, 
arrays,  etc.,  will  be  decomposed  into  a  series  of  elementary 
operations.   (3)  Simple  assignment  or  CALL  statements  will 
be  written  to  effect  the  performing  of  the  series  of 
elementary  functions.   And  (4)  modifications  as  required 
will  be  made  on  most  other  FORTRAN  statements  to  permit  the 
successful  compilation  and  execution  of  the  program. 

Applications  for  the  NSFORT  translator  include  but  are 
not  restricted  to  the  following: 


(1)  n-precision  integer  or  real  variable  tasks 

(2)  Complex  or  quaternion  variables 

i 

(3)  n-dimentional  vector  or  matrix  operations 

(*J)   Numerically  evaluated  analytic  derivatives  [Refs.  1 
and  2] 

(5)  Interval  arithmetic  [Ref.  3] 

(6)  Abstract  algebraic  operations 

It  should  be  acknowledged  that  the  overall  concept  of 
the  NSFORT  translator  is  not  new.   It  was  suggested  to  the 
author  by  Professor  Rex  H.  Shudde ,  Ph.D.,  and  is  based  on 
his  use  of  the  TYPE  OTHER  feature  of  FORTRAN  63  [Refs.  H 
and  51 . 

This  thesis  will  not  be  concerned  with  the  writing  of 
specific  sets  of  subroutines  for  specific  applications. 
(However,  the  NSFORT  translator  has  been  completely  tested 
through  final  execution  with  numerical  differentiation 
problems  and  hence,  a  set  of  subroutines  for  this  applica- 
tion in  normal  precision  have  been  written.)   The  reader 
should  also  keep  in  mind  the  general  nature  of  the  NSFORT 
translator  and  not  feel  restricted  to  the  applications 
cited.   For  example,  the  number  of  values  in  an  operand  or 
result  is  not  necessarily  greater  than  one;  and  the  user 
can  redefine  the  elementary  functions  as  he  wishes. 

Advantages  to  be  noted  as  the  NSFORT  translator  is 
described  in  detail  are  (1)  generality  and  flexibility  of 
the  translator,  (2)  minimal  restrictions  In  the  use  of  the 
FORTRAN  IV  language,  (3)  complete  accounting  of  variable- 


types,  (H)    generation  of  nonstandard  program  listing  with 

diagnostic  messages,  and  (5)  complete  handling  of  mixed- 

! 

type  expressions.   Disadvantages  are  (1)  some  restrictions 
on  programming,  (2)  the  inability  to  automatically  handle 
input/output  functions,  and  (3)  the  restriction  to  IBM 
FORTRAN  G  (or  higher  level)  compilers. 


10 


II.       TRANSLATOR    DESCRIPTION    AND   OPERATION 

! 

! 

The  NSFORT  translator  is  written  in  the  PL/I  programming 
language  [Refs.  6  and  7]  and  is  presently  operational  on  an 
IBM  360/67  in  the  OS  configuration.   For  further  details 
about  the  translator  see  Appendix  A — NSFORT  Translator  Pro- 
gram Descriptioon ,  Appendix  B — Job  Control  Language  Used 
with  the  NSFORT  Translator,  and  Appendix  C — NSFORT  Transla- 
tor Program  Listing.   All  conventional  FORTRAN  usage  is  in 
accordance  with  Reference  8. 

As  noted  previously,  the  fundamental  task  of  the  user  is 
to  specify  (implicitly  and/or  explicitly)  certain  variables, 
arrays,  and  functions  as  nonstandard.   Appendix  D — Syntax 
Rules  for  NSFORT  Statements,  describes  in  detail  this  pro- 
cedure.  In  addition  to  identifying  variables  the  user  also 
must  specify  the  nonstandard  type  and  the  nonstandard  size. 
As  described  in  Appendix  D,  the  nonstandard  type  determines 
which  FORTRAN  variable  type  the  nonstandard  variable  will 
be  mapped  into,  and  the  nonstandard  size  determines  the  size 
of  the  FORTRAN  array  that  the  nonstandard  variable  will  map 
into.   The  examples  below  should  clarify  the  relationships. 
NSFORT  FORTRAN 

N0NSTANDARD1*2  ALPHA  REAL*4  ALPHA(2) 

N0NSTD6*3  BETA  ,GAMMA(  10  ,10)     C0MPLEX-*16  BETA(3), 

GAMMA(3,10,10) 

NSTD2*3  DELTA(IOO)  REAL*8  DELTA(3,100) 

IMPLICIT  specifications  will  be  discussed  later, - 
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Elementary  operations  to  which  nonstandard  expressions 
will  be  decomposed  are  the  following: 

Assignment  (=) 

Arithmetic  operations  (  +  ,  -,  *,  /,  **,  unary  -,  unary  +) 

Relational  operations  (.LT.,  .LE.,  .EQ.,  .NE.,.GE.,  .GT.) 

Logical  operations  (.NOT.,  .AND.,  .OR.) 

Any  non-FORTRAN  user  function 
Note  that  FORTRAN  functions  (SIN,  COS,  EXP,  ALOG ,  etc.)  are 
not  included  in  the  above  list. 

Before  proceeding  the  reader  should  familiarize  himself 
with  Appendix  E — Summary  of  NSFORT  Codes.   For  a  complete 
description  of  translator  action  on  any  statement  see 
Appendix  F — Translator  Action  for  Specific  FORTRAN  and 
Nonstandard  FORTRAN  Statements. 

A  simple  example  will. illustrate  the  translation  of  the 
IMPLICIT  statement  and  of  elementary  assignment  statements. 

NSFORT:        IMPLICIT  NONSTANDARD! *2  (A-C) 
C         INPUT 

CALL  INPUT(A1  ,B1  ,A2  ,B2  ,A3  ,B3) 
C         COMPUTE 

1  C1=-A1+B1 

2  C2=(A2+B2)*B2 

3  C3=(A3+B3)/A3**B3 

4  C4=(A3+10.)*(D*E) 

5  C5  =  F 

6  H=P+0+R 

C         OUTPUT 

CALL  0UTPUT(C1 ,C2 ,C3 ,C4 ,C5  ) 

STOP 

END 
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FORTRAN 


GENERATED  FORTRAN  SOURCE  PROGRAM 


IMPL 

REAL 
DIME 

*C1(2 
CALL 

*B3(1 

1  CALL 
CALL 
CALL 

2_CALL 
CALL 
CALL 

3  CALL 
CALL 
CALL 
CALL 

4  CALL 
T$l( 
CALL 
CALL 

5  CALL 

6  H=P  + 

CALL 
STOP 
END 


ICIT  RE 
INPUT 
*4  T$l  ( 
NSION  A 
),C2(2) 
INPUT 

)) 
COMPUTE 

N$AAN 

N$AAAA 

N$AA 

N$AAAA 

N$AAMA 

N$AA 

N$AAAA 

N$AAEA 

N$AADA 

N$AA 

N$AAA1 
1)  =  D 

N$AAM1 

N$AA 

N$A1 
Q+R 
OUTPUT 

OUTPUT 


AL*4  (A-C) 

1),  T$A(2,3) 

1(2),B1(2),A2(2),B2(2),A3(2),B3(2), 

,C3(2),C4(2),C5(2) 

(Al(l),  Bl(l),  A2(l),  B2(l),  A3(l), 


T$A(1,1),  Al(l)) 

T$A(1  ,2),  T$A(1  ,1),  Bl(l)) 

Cl(l),  T$A(1,2)) 

T$A(1  ,1),  A2(l),  B2(l)) 

T$A(1  ,2),  T$A(1  ,1),  B2(l)) 

C2(l),  T$A(1,2)) 

T$A(1  ,1),  A3(l),  B3(l)) 

T$A(1  ,2),  A3(l)  ,  B3(l)) 

T$A(1,3),  T$A(1,1),  T$A(1,2)) 

C3(l),  T$A(1  ,3)) 

T$A(1 ,1),  A3(l),  10.) 

E 

T$A(1  ,2),  T$A(1  ,1),  T$l(l)) 

C4(l),  T$A(1,2)) 

C5(l),  F) 


(Cl(l),  C2(l),  C3(l),  C4(l),  C5(l)) 


The  decomposition  process  is  illustrated  in  this  example  for 
a  variety  of  cases.   Note  particularly  statement  2.   First 
the  "addition"  A2  and  B2  is  isolated.   This  result,  T$A( • ,1) , 
is  then  "multiplied"  by  B2  to  obtain  T$A(«,2),  and  finally 
that  result  is  assigned  to  C2. 

Other  points  to  note  in  this  example  are 
(1)   When  IMPLICIT  specification  is  used  all  variables, 
so  specified,  used  in  the  program  are  properly  dimensioned 
by  the  translator.  .- 
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(2)  Comments  are  passed  unaltered. 

(3)  Statement  numbers  (if  used)  remain  with  the  first 

i 
| 

generated  statement.   (The  statement  numbers  associated  with 
DO  loops  are  handled  separately.   See  Appendix  P.) 

(4)  Temporary  variables  are  properly  declared  and  are 
reused  in  subsequent  statements,  thus  temporary  storage  is 
minimized . 

(5)  Arrays  in  arguments  of  CALL  statements  are  identi- 
fied by  the  first  storage  location. 

(6)  Simple  arithmetic  assignment  is  a  distinct  elemen- 
tary function.   This  is  advantageous  in  many  applications 
(e.g.  it  eliminates  the  possibility  of  logical  errors  in 
statements  of  the  type  A  =  A*B)  and  it  serves  to  reduce  the 
number  of  subroutines  required  for  a  specific  application. 

(7)  All  mixed-type  operations  are  permissible.   The 
variable  type  of  the  result  is  predetermined.   See  Appendix 
G--Result  Type  of  Mixed  Type  Operations. 

(8)  Statements  not  containing  nonstandard  variables  are 
unaltered. 

It  should  be  clear  at  this  point  that  the  user's  use  of 
FORTRAN  must  be  restricted  to  some  degree.   For  example,  the 
NSFORT  translator  uses  the  "$"  symbol  and  hence  the  user 
must  limit  his  use  of  it;  likewise  since  FORTRAN  does  not 
permit  in  excess  of  seven  subscripts,  the "user  is  limited 
to  six  on  nonstandard  variables  since  the  translator  adds 
one,   These  restrictions  are  enumerated  in  Appendix  H — Design 
Limitations  and  Restrictions.   In  case  of  a  coding  error  or, 
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in  some  cases  such  as  the  violation  of  a  design  limitation 

or  restriction  that  prevents  the  translator  from  properly 

i 

processing  a  statement,  the  translator  will  issue  a  diag- 
nostic message.   This  message  will  appear  on  the  nonstandard 
FORTRAN  program  listing  immediately  below  the  statement  in 
error.   For  a  list  of  the  error  messages  and  explanations 
see  Appendix  I — NSFORT  Diagnostic  Messages. 

The  following  example  will  illustrate  the  translation 
of  the  logical  JF  statement  and  the  use  of  a  nonstandard 
function. 


NSFORT:  N0NSTANDARD2*3  X ( 2 ) ,A ,B  ,C  ,SQR00T (* ) 

1  CALL  INPUT  (A.B.C) 

2  IF  (B**2-4*A*C.LT.O.)  GO  TO  10 

3  X(1)=(-B+SQR00T(B**2-4*A*C))/2.*A 

4  X(2)=(-B-SQR00T(B**2-4*A*C))/2.*A 

5  CALL  OUTPUT  (X(l)) 
10  STOP 

END 


N0NSTANDARD2*3  FUNCTION  SQR00T  (A) 
N0NSTANDARD2*3  A 


SQR00T= 


END 
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FORTRAN 


GENERATED  FORTRAN  SOURCE  PROGRAM 


REAL*8 
LOGICA 
REAL*8 


5 
10 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

IF  (T$ 

CALL  N 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

STOP 

END 


T$B( 
L*l  T 

X(3, 
NPUT 
$BBE4 
$B4MB 
$BBMB 
$BBSB 
$7B11 
7(D) 
$BBN 
$BBE4 
$B4MB 
$BBMB 
$BBSB 
SQROO 
$BBAB 
$BBD1 
$BBMB 
$BB 
$BBN 
$BBE4 
$B4MB 
$BBME 
$BBSB 
SQROO 
$BBSB 
$BBD1 
$BBMB 
$BB 
UTPUT 


3,9) 
$7(1) 
2),A( 
(A(l) 
T$B 
T$B 
T$B 
T$B 
T$7 
GOTO 
T$B 
T$B 
T$B 
T$B 
T$B 
T$B 
T$B 
T$B 
T$B 

X(l 
T$B 
T$B 
T$B 
T$B 
T$B 
T$B 
T$B 
T$B 
T$B 
X(l 
X(l 


3),B 
,  B( 
(1,1 
(1,2 
(1  ,3 
(1,4 

(1), 
10 

(1.1 

(1.2 
(1.3 
(1  ,4 
(1,5 
(1,6 
(1,7 
(1,8 
(1,9 
J), 
(1.1 
(1,2 
(1,3 
(1  ,4 
(1  ,5 
(1,6 
(1.7 
(1.8 
(1,9 
,2), 
.D) 


3),C(3) 
),  C(l)) 
,  B(l),  2) 
,  4,  A(l)) 
,  T$B(1 ,2) 
,  T$B(1  ,1) 
T$B(1,4), 


0 


B(l)) 

BO),  2) 
4,  A(l)) 
T$B(1  ,3), 
T$B(1,2), 
T$B(1  ,5)) 
T$B(1,1), 
T$B(1,7), 
T$B(1,8), 

T$B(1  ,9)) 
B(l)) 
BO),  2) 
4,  A(l)) 
T$B(1  ,3), 
T$B(1,2), 
T$B(1,5)) 
T$B(1,1), 
T$B(1,7), 
T$B(1  ,8), 

T$B(1,9)) 


C(D) 
T$B(1  ,3)) 

) 


CO)) 
T$B(1,4)) 

T$B(1  ,6)) 

2.) 

A(l)) 


c(D) 

T$B(1  ,4)) 

T$B(1  ,6)) 

2.) 

A(l)) 


c 
c 

C 

c 
c 


GENERATED  FORTRAN  SOURCE  PROGRAM 


SUBROUTINE  $SQROO  (SQROOT,A) 
REAL*8  SQR00T(3) 
REAL*8  A(3) 


CALL  N$BB    (SQR00T(1 )  ,. .  . 


END 
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It  is  apparent  that  FORTRAN  functions  cannot  be  used  with 

nonstandard  arguments,  but  the  above  example  illustrates 

! 
how  the  user  can  use  analogous  nonstandard  functions  and 

let  the  translator  automatically  make  the  required 

adjustments . 

No  attempt  has  been  made  to  describe  completely  the 

action  of  the  NSFORT  translator  in  the  body  of  this  paper 

but  only  to  illustrate  the  concept  and  the  power  of  the 

translator.   The  reader,  is  again  directed  to  Appendices  F 

and  H  for  a- complete  description. 
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III.   PROBLEMS  AND  TECHNIQUES 

I 
I 

The  remainder  of  this  thesis  will  discuss  particular 
problems  encountered  in  the  design  of  the  NSFORT  translator 
and  the  techniques  used  to  overcome  them.   This  project  was 
accomplished  with  the  extremely  powerful  PL/I  programming 
language.   Extensive  use  in  all  aspects  of  the  project  was 
made  of  the  character  string  handling  capability  of  PL/1, 
notably  the  VARIABLE  attribute  of  character  strings  and  the 
character  string  functions  SUBSTR  and  INDEX. 

Clearly  the  first  major  task  of  the  translator  is  the 
classification  of  statements.   This  is  accomplished  by 
recognizing  the  distinctive  pattern  of  statements.   Since 
blank  spaces  have  no  effect  (except  in  literals)  in  FORTRAN 
they  can  be  eliminated.   -Thus  the  first  step  is  to  eliminate 
blanks  but  only  up  to  the  first  delimiter  so  as  to  not  alter 
any  literal.   Assignment  statements  and  statement  functions 
are  then  identified.   FORTRAN  statements  which  are  neither 
assignment  statements  nor  statement  functions  are  identified 
by  their  first  two  characters  and  then  by  more  characters  if 
the  first  two  are  not  unique.   The  next  requirement  is  to 
remove  the  literals  and  replace  them  by  a  code;  after  pro- 
cessing the  literals  are  then  reinserted.   Removing  the 
literals-  permits  the  remaining  blanks  to  b~e  eliminated  and 
reduces  each  statement  to  an  identifiable  pattern. 

The  largest  single  procedure  in  the  translator  is  the 
one  that  processes  expressions.   This  procedure  is  used, 
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as  required,  for  CALL  statements,  IP  statements,  and  assign- 
ment statements,  and  is  designed  to  decompose  logical  as 

i 
well  as  arithmetic  expressions,  and  to  generate  the  required 

CALL  statements.   The  reverse  Polish  string  method  that  is 
described  by  Randell  and  Russell  [Ref.  9]  is  used.   The 
method  is  simplified  somewhat  since  subscripts  may  not 
contain  nonstandard  variables  and  hence  a  variable  with  its 
subscripts  may  be  treated  as  a  single  entity.   On  the  other 
hand,  the  translator's  capability  to  handle  nonstandard 
functions  made  the  processing  of  expressions  somewhat  more 
intricate . 

In  generalized  compiler  processing  using  the  reverse 
Polish  method  there  are  three  steps:   (1)  generation  of  the 
reverse  Polish  string,  (2)  generation  of  the  triplet  list, 
and  (3)  reduction  of  the  .triplet  list  by  eliminating  iden- 
tical triplets  and  accounting  for  connected  triplets  and 
commutative  operations.   In  the  NSPORT  translator  the 
generated  CALL  statements  are  analogous  to  the  triplet  list. 
Connected  triplets  offer  no  advantage  in  the  NSFORT  trans- 
lator but  efficiency  can  be  increased  by  eliminating 
identical  CALL  statements.   There  is  a  significant  trade-off 
however  since  sizable  storage  space  must  be  available  for 
the  triplet  list  with  the  possible  payoff  being  speedier 
execution.   Since  it  is  anticipated  that  the  NSFORT  trans- 
lator would  be  used  by  proficient  programmers,  it  was 
believed  that  reducing  the  triplet  list  would  offer  an 
insignificant  advantage.   Therefore  the  following  variation 
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was  used.   The  translator  begins  generating  the  reverse 

Polish  string  until  the  first  triplet  is  complete.   At  this 

'  i 
point  the  triplet  is  converted  to  a  CALL  statement,  which 

is  written  on  an  output  file,  and  the  temporary  variable 
containing  the  result  of  the  triplet  replaces  the  triplet 
in  that  fragment  of  the  reverse  Polish  string.   The  trans- 
lator then  continues  to  generate  the  reverse  Polish  string 
until  the  next  triplet  is  complete. 

Determining  whether  or  not  particular  statements  contain 
nonstandard- variables  was  a  problem  owing  to  the  possibility 
of  the  use  of  either  implicit  or  explicit  specifications. 
This  is  a  YES  or  NO  determination  in  the  NSFORT  translator. 
The  technique  used  is  to  first  check  for  the  presence  of 
explicitly  declared  nonstandard  variables  or  functions.   If 
none  are  present  then  a  check  is  made  for  implicitly  declared 
nonstandard  variables.   If  any  are  found  they  must  be  checked 
against  the  list  of  explicitly  declared  variables  to  insure 
that  the  implicit  declaration  has  not  been  overridden  by  an 
explicit  declaration  of  the  specific  identifier.   If  in  the 
process  of  searching  the  statement  the  presence  of  non- 
standard variables  is  ascertained,  then  the  search  process 
is  immediately  terminated. 

The  NSFORT  translator  treats  each  subprogram  as  an 
independent  entity,  and  is  designed  to  process  a  series  of 
subprograms  in  one  execution.   The  only  delineation  required 
is  the  norma'l  END  statement.   To  handle  subprograms,  certain 
lists  of  relevant  information  must  be  compiled  by  the 
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translator.   Essentially,  these  are  a  list  of  explicitly 

declared  variables,  a  list  of  implicitly  declared  letters 

I 
of  "the  alphabet,  a  list  of  dimensioned  variables,  and  a  list 

of  nonstandard  function  names.   When  an  END  statement  is 

encountered  these  lists  are  erased  and  the  translator  is 

prepared  for  a  new  subprogram. 

The  NSFORT  translator  was  designed  and  coded  to  handle 
legitimate  FORTRAN  statements  on  an  individual  basis.   It 
has  some  built-in  safety  features  (the  diagnostic  messages) 
which  were  designed  to  keep  the  translator  from  abnormally 
terminating  in  the  system  and  to  prevent  the  translator  from 
doing  something  incorrectly.   The  translator  is  not  designed 
to  detect  FORTRAN  syntax  errors  or  statement  errors,  except 
to  the  extent  described  above.   Furthermore,  an  error  in  a 
specification  statement  which  would  render  meaningless  the 
remainder  of  the  subprogram  will  not  terminate  translation 
of  that  subprogram. 

This  translator  has  been  extensively  tested  but,  natur- 
ally, it  was  impossible  to  foresee  and  to  test  it  with  every 
possible  FORTRAN  program.   This  fact  combined  with  the 
complexity  of  the  task  almost  certainly  assures  that  future 
errors  in  the  translation  will  be  uncovered.   These  will 
be  corrected  as  they  are  brought  to  the  author's  attention. 

The  concept  embodied  in  the  NSFORT  translator  could  be 
extended  by  allowing  the  user  to  use  unique  symbols  instead 
of  the  set  of  FORTRAN  operators  to  specify  the  elementary 
operations.   In  this  manner  the  generated  subroutine  names 
could  be  made  unique. 


21 


APPENDIX  A 
! 

NSFORT  TRANSLATOR  PROGRAM  DESCRIPTION 


The  NSFORT  translator  is  written  in  the  PL/I  language 
and  consists  of  twenty-six  procedures  (subprograms).   The 
procedure  MAIN  is  the  controlling  program  and  the  other 
twenty-five  are  called  directly  or  indirectly  when  required. 
The  translator  is  presently  operational  on  an  IBM  36O/67  in 
the  OS/MVT  environment  and  uses  150K  of  core  storage. 

The  translator  uses  four  data  sets.   Input  (NSIN) 
contains  card  images  and  is  used  to  read  in  a  nonstandard 
FORTRAN  source  program,   NSLIST  is  a  print  file  which  is 
used  to  list  the  input  card  images  and  to  display  any  of 
the  diagnostic  messages  that  the  translator  may  generate. 
NSOUT  is  an  output  file  which  contains  jard  images  with 
conventional  FORTRAN  statements.   The  NSOUT  file  may  be 
sent  directly  to  the  FORTRAN  compiler.   The  NSWORK  file 
is  a  temporary  file  used  by  the  NSFORT  translator. 

In  order  to  translate  a  nonstandard  FORTRAN  program  into 
a  FORTRAN  program  the  translator  (in  most  cases)  must- con- 
struct and  insert  several  FORTRAN  specification  statements 
in  the  sequence  of  statements.   To  effect  this  the  trans- 
lator begins  reading  statements.   If  the  statement  is  a 
SUBROUTINE,  FUNCTION,  or  IMPLICIT  statement,  the  translated 
statement  is  placed  in  the  NSOUT  file.   After  these  state- 
ments, all  subsequently  translated  statements  are  placed- in 


22 


the  NSWORK  file.   When  an  END  statement  is  encountered  the 

translator  constructs  any  specification  statements  that  are 

! 
required  and  places  them  in  the  NSOUT  file.  _  Following  this 

the  NSWORK  file  is  rewound  and  the  contents  are  placed  in 

the  NSOUT  file.   The  NSOUT  file  now  contains  a  complete 

FORTRAN  subprogram. 

Except  for  the  procedure  described  above  the  NSFORT 
translator  operates  on  a  single  pass  basis.   Each  statement 
in  the  nonstandard  FORTRAN  source  program  is  read,  trans- 
lated and  output  before  the  next  statement  is  translated. 

As  the  translator  processes  a  subprogram  it  stores  in 
common  storage  that  information  relating  to  specification 
of  variables,  arrays,  and  functions  which  is  required  for 
subsequent  statement  translation.   The  twenty-six  procedures 
in  the  translator  have  access  to  this  common  storage  as 
necessary.   In  some  cases,  however,  information  is  passed  to 
and  from  procedures  in  argument  lists  of  CALL  statements. 

The  twenty-six  procedures  that  make  up  the  NSFORT  trans- 
lator ^are  listed  below  in  alphabetical  order  (except  for 
MAIN) .   For  each  procedure  the  following  information  is 
given:   (a)  the  function  of  the  procedure;  (b)  the  list  of 
other  procedures  that  call  the  procedure;  (c)  the  list  of 
other  procedures  called  by  the  procedure,  and  (d)  a  brief 
description  of  the  operation  of  the  procedure. 

1.   MAIN  (M) 

a,  "Function.   Overall  control  of  the  translator. 

b.  Calling  procedures.   None. 
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c.  Procedures  called.   PROCCRD,  ERROR. 

d.  Description.   MAIN  initializes  the  translator, 

i 

i 

reads  card  images,  and  terminates  translation.   Comment 
cards  encountered  are  simply  rewritten  in  NSOUT  or  NSV/ORK . 
Since  the  translator  works  with  complete  statements  as  the 
basic  unit,  MAIN  also  collects  all  continuation  cards  prior 
to  calling  PROCCRD  to  process  the  statement. 

2.  ASGMTST  (A) 

a.  Function .   Translation  of  assignment  statements. 

b.  -Calling  procedures.   PROCCRD. 

c.  Procedures  called.   DIMENIT,  DUPEIT,  ERROR, 
EXPRSN,  LITLOC,  NUCARD,  SEARCH. 

d.  Description.   ASGMTST  locates  literals  (LITLOC) 
and  determines  whether  nonstandard  variables  are  present 
(SEARCH) ,   If  none  are  present  the  statement  is  written  in 
an  output  file  (DUPEIT) .   If  nonstandard  variables  are 
present,  the  expression  to  the  right  of  the  equal  symbol  is 
processed  (EXPRSN) .   Finally  a  CALL  statement  is  constructed 
and  written  on  an  output  file  (NUCARD)  which  will  effect 
the  assignment  to  the  result  of  the  expression  on  the  right 
of  the  equal  symbol  to  the  variable  on  the  left. 

3.  CALLST  (C) 

a.  Function .   Translation  of  CALL  statements. 

b.  Calling  procedures.   PROCCRD. - 

c.  Procedures  called.   DUPEIT,  EXPRSN,  LITLOC, 
NUCARD,  PARLOC,  SEARCH. 
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d.   Description.   Literals  are  located  (LITLOC)  and 

determination  is  made  as  to  the  presence  of  nonstandard 

i 
i 

variables  (SEARCH).   If  nonstandard  variables  are  not 
present  the  statement  is  written  on  an  output  file  (DUPEIT) , 
otherwise,  each  argument  containing  nonstandard  variables 
is  processed  by  EXPRSN.   Finally  the  statement  is  recon- 
structed and  written  on  an  output  file  (NUCARD)  with  the 
arguments  being  either  the  original  arguments  or  the  result 
of  the  process&d  expressions,  as  appropriate. 
k.       COMSTMT  (CO) 

a.  Function.   Translation  of  COMMON  statements. 

b.  Calling  procedures.   PROCCRD. 

c.  Procedures  called.   DIMENIT,  DUPEIT,  ERROR, 
NUCARD,  SEARCH,  SQZBLNK. 

d.  Description .  -Determination  is  made  as  to  the 
presence  of  nonstandard  variables  (SEARCH).   If  nonstandard 
variables  are  not  present  the  statement  is  written  on  an 
output  file  (DUPEIT),  otherwise,  the  statement  is  translated 
as  described  in  Appendix  F  and  is  written  on  an  output  file 
(NUCARD) . 

5.   DATAST  (DA) 

a.  Function.   Translation  of  DATA  statements. 

b.  Calling  procedures.   PROCCRD. 

c.  Procedures  called.   DIMENIT,  DUPEIT,  ERROR, 
LITLOC. 

d.  Description.   Literals  are  first  located 
(LITLOC)  and  then  the  statement  is  examined  for  implicitly 
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declared  nonstandard  variables  which  have  not  been  dimen- 
sioned previously.   The  statement  is  placed  on  an  output 

j 
file  in  its  original  form  (DUPEIT) . 

6.  DIMENIT  (DM) 

a.  Function.   Construction  of  a  DIMENSION  statement 

b.  Calling  Procedures.   ASGMTST,  COMSTMT,  DATAST, 
EQUIVST,  EXPRSN,  NAMELST,  READST . 

c.  Procedures  called.   ERROR,  NUCARD. 

d.  Description .   DIMENIT  is  called  whenever  an 
implicitly  declared  nonstandard  variable  is  encountered. 
DIMENIT  maintains  a  DIMENSION  statement  to  which  variable 
names  are  added.   If  the  implicitly  declared  nonstandard 
variable  has  been  encountered  previously  and  dimensioned 
then  control  is  returned  to  the  calling  procedure.   If  the 
implicitly  declared  nonstandard  variable  has  not  been 
dimensioned  then  it  is  added  to  the  DIMENSION  statement. 

7.  DIMENST  (DI) 

a.   Function.   Translation  of  DIMENSION  statements. 
-  b.   Calling  procedures.   PROCCRD. 

c.  Procedures  called.   ERROR,  NUCARD,  SQZBLNK. 

d.  Description.  DIMENST  translates  DIMENSION 
statements  as  described  in  Appendix  F.  The  translated 
statement  is  then  written  on  an  output  file  (NUCARD) . 

8.  DOSTMT  (DO) 

a.  Function .   Translation  of  DO  statements. 

b.  Calling  procedures.   PROCCRD. 

c.  Procedures  called.   ERROR,  NUCARD,  SQZBLNK. 
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d.   Description .   DOSTMT  replaces  the  end-of-range 
statement  number  with  another  number  as  described  in 
Appendix  F.   The  original  end-of-range  statement  number  is 
stored.   The  searching  of  subsequent  statement  numbers  for 
the  end-of-range  statement  is  performed  by  PROCCRD.   The 
insertion  of  a  new  end-of-loop  CONTINUE  statement  is  done 
by  MAIN. 

9.   DUPEIT  (D) 

a.  Function .   Transfer  of  unaltered  statements  to 
output  files. 

b.  Calling  procedures.   ASGMTST,  CALLST,  COMSTMT, 
DATAST,  ENDSTMT,  EQUIVST,  FUNCST,  IFSTMT,  NAMELST,  PROCCRD, 
READST,  TYPSTMT. 

c.  Procedures  called.   None. 

d.  Description.  _ When  a  statement  from  a  nonstan- 
dard FORTRAN  source  program  requires  no  processing  or  is 
unaltered  during  processing  then  DUPEIT  is  called  to  copy 
the  input  card  images  comprising  the  statement  onto  NSOUT 
or  NSWORK  as  required. 

10.   ENDSTMT  (EN) 

a.  Function .   Completion  of  translation  of  a 
subprogram. 

b.  Calling  procedures.   PROCCRD. 

c.  Procedures  called.   DUPEIT,  NUCARD. 

d.  Description.   ENDSTMT  is  called  whenever  an  END 
statement  is"  encountered  in  a  nonstandard  FORTRAN  source 
program,   ENDSTMT  constructs  and  writes  (NUCARD)  any 
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necessary  specification  statements  onto  NSOUT.   It  then  con- 
catenates the  accumulated  NSWORK  file  onto  the  NSOUT  file. 

i 
i 

Thus  NSOUT  contains  complete  FORTRAN  source  subprograms. 
Finally  ENDSTMT  signals  the  end  of  a  subprogram  so  that  MAIN 
can  reinitialize. 

11.  EQUIVST  (EQ) 

a.  Function.   Translation  of  EQUIVALENCE  statements 

b.  Calling  procedures.   PROCCRD. 

.  c.   Procedures  called.   DIMENIT,  DUPEIT,  ERROR, 
NUCARD,  SEARCH,  SQZBLNK . 

d.   Description.   EQUIVST  translates  EQUIVALENCE 
statements  as  described  in  Appendix  F.   The  translated 
statement  is  written  on  NSWORK  by  DUPEIT  or  NUCARD. 

12.  ERROR  (E) 

a.  Function.   Generation  of  error  messages  on  the 
NSLIST  file. 

b.  Calling  procedures.   MAIN,  ASGMTST,  COMSTMT, 
DATAST,  DIMENIT,  DIMENST,  DOSTMT,  EQUIVST,  EXPRSN,  FUNCST, 
IFSTMT,  IMPSTMT,  LITLOC,  NAMELST,  NSTDST,  PARLOC,  PROCCRD, 
READST,  TYPSTMT. 

c .  Procedures  called.   None . 

d.  Description.  When  any  procedure  encounters  an 
unfamiliar  construction  or  the  translator's  design  limita- 
tions are  exceeded,  ERROR  is  called  with  an  error  message. 
This  message  is  placed  on  NSLIST  immediately  following  the 
statement  being  translated.  Translation  of  the  current 
statement  is  terminated  and  control  is  returned  to  MAIN. 
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13.  EXPRSN  (EX) 

a.  Function.   Translation  -  of  arithmetic  and  logical 
i 

expressions . 

b.  Calling  procedures.   ASGMTST,  CALLST,  IPSTMT. 

c.  Procedures  called.   DIMENIT,  ERROR,  NUCARD, 
PARLOC,  SEARCH. 

d.  Description.   EXPRSN  is  called  whenever  an 
arithmetic  or  logical  expression  containing  nonstandard 
variables  is  encountered.   EXPRSN  translates  the  expression 
as  described  in  Appendix  F.   The  translation  of  the 
expression  results  in  a  single  variable  (usually  a  temporary 
variable  constructed  by  the  translator)  which  contains  the 
result  of  the  expression.   This  result  is  returned  to  the 
calling  procedure. 

14.  FUNCST  (F) 

a.  Function .   Translation  of  explicitly  declared 
FUNCTION  statements. 

b.  Calling  procedures.   PROCCRD. 

c.  Procedures  called.   DUPEIT,  ERROR,  NSTDST, 
NUCARD,  SQZBLNK. 

d.  Description.   Explicitly  declared  FUNCTION 
statements  are  translated  as  described  in  Appendix  F.   The 
translated  statement  is  written  on  NSOUT  by  DUPEIT  or 
NUCARD. 

15.  IFSTMT  (IF) 

a.  Function.   Translation  of  IF  statements. 

b.  Calling  procedures.   PROCCRD. 
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c.  Procedures  called.   DUPEIT,  ERROR,  EXPRSN, 
LITLOC,  NUCARD,  PARLOC,  SEARCH. 

d.  Description.   Literals  are  located  (LITLOC)  and 
the  arithmetic  or  logical  conditional  expression  is  searched 
for  nonstandard  variables  (SEARCH) .   If  necessary  the 
expression  is  translated  by  EXPRSN.   See  Appendix  P  for  a 
description  of  IF  statement  translation.   If  in  a  logical 

IP  statement,  the  statement  to  be  executed  contains  non- 
standard variables  the  control  is  passed  back  to  PROCCRD 
and  the  statement  is  treated  as  the  next  statement. 

16.  IMPSTMT  (I) 

a.  Function.   Translation  of  IMPLICIT  statements. 

b.  Calling  procedures.   PROCCRD. 

c.  Procedures  called.   ERROR,  NSTDST,  NUCARD, 
SQZBLNK. 

d.  Description,.   The  NSFORT  translator  maintains  a 
list  of  variable  types  corresponding  to  the  alphabet  (plus  $). 
When  initialized,  variable  names  beginning  with  letters- I, 

J,  K,  1,  M  or  N  will  be  considered  INTEGER**!  variables  while 
names  beginning  with  any  others  will  be  considered  REAL* 4. 
When  an  IMPLICIT  statement  is  encountered  this  alphabet  list 
is  revised  as  called  for  in  the  IMPLICIT  statement.   The 
translation  action  is  performed  as  described  in  Appendix  F. 
The  translated  statement  is  written  on  the-  NSOUT  file  by 
NUCARD. 

17.  LITLOC  (L) 

a.   Function.   Location  and  isolation  of  literals. 
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b.  Calling  procedures.   ASGMTST,  CALLST,  DATAST, 
IFSTMT,  TYPSTMT. 

c.  Procedures  called.   ERROR,  SQZBLNK. 

d.  Description .   LITLOC  is  called  to  remove  lit- 
erals from  statements  in  order  that  the  statements  may  be 
more  easily  processed.   LITLOC  locates  the  beginning  and 
end  of  literals,  stores  them  separately,  and  substitutes  a 
code  in  their  place.   In  this  process  all  blanks  except 
those  in  the  literals  are  removed.   When  the  translated 
statement  is  ready  for  output ,  NUCARD  finds  the  literal 
codes  and  replaces  the  original  literals.   LITLOC  will 
recognize  either  of  the  two  ways  of  designating  literals 
accepted  by  FORTRAN  IV. 

18.  NAMELST  (NA) 

a.  Function.   Translation  of  NAMELIST  statements. 

b.  Calling  procedures.   PROCCRD. 

c.  Procedures  called.   DIMENIT,  DUPEIT,  ERROR, 
SQZBLNK. 

d.  Description.   NAMELST  processes  NAMELIST  state- 
ments as  described  in  Appendix  F.   The  original  statement 
is  written  on  the  NSWORK  file  by  DUPEIT. 

19.  NSTDST  (NS) 

a.  Function.   Processing  of  the  NONSTANDARDi*n 
phrase.  _ 

b.  Calling  procedures.   FUNCST,  IMPSTMT,  TYPSTMT. 

c.  "Procedures  called.   ERROR. 
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d.   Description.   When  the  NONSTANDARD! *n  phrase 
(or  any  of  its  optional  abbreviations)  is  encountered  NSTDST 
is  called  to  determine  the  nonstandard  type,  the  nonstandard 
size,  and  to  check  for  consistency  and  syntax  errors.  - 

20.  NUCARD  (N) 

a.  Function .   Construction  of  output  card  images. 

b.  Calling  procedures.   ASGMTST,  CALLST,  COMSTMT, 
DIMENIT,  DIMENST,  ENDSTMT,  EQUIVST,  EXPRSN,  FUNCST,  IFSTMT, 
IMPSTMT,  TYPSTMT. 

c.  ^Procedures  called.   None. 

d.  Description.  NUCARD  first  replaces  all  literals 
in  the  statement  (see  LITLOC  above).  NUCARD  then  constructs 
the  first  card  image  from  the  statement  to  include  the 
statement  number  (if  any).  Continuation  cards  are  construc- 
ted as  required.  The  card  images  are  then  written  on  either 
the  NSOUT  file  or  the  NSWORK  file  as  appropriate, 

21.  PARLOC  (PA) 

a.  Function.   Location  of  a  corresponding  close 
parenthesis . 

b.  Calling  procedures.   CALLST,  EXPRSN,  IFSTMT, 
READST. 

c.  Procedures  called.   ERROR. 

d.  Description.   In  several  circumstances  it  is 
necessary  to  locate  a  corresponding  closed- parenthesis ; 
e.g.  subscripts,  argument  lists,  etc.   PARLOC  is  called  to 
perform  this"  task. 
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22.  PROCCRD  (P) 

a.  Function.   Classification  of  nonstandard  FORTRAN 
statements . 

b.  Calling  procedures.   MAIN. 

c.  Procedures  called.  ASGMTST,  CALLST,  COMSTMT, 
DATAST,  DIMENST,  DOSTMT,  DUPEIT,  ENDSTMT ,  EQUIVST,  ERROR, 
FUNCST,  IFSTMT,  IMPSTMT,  NAMELST,  READST,  SQZBLNK,  TYPSTMT. 

d.  Description.   PROCCRD  concatenates  columns  7 
through  72  of  jthe  card  images  containing  a  single  statement. 
Blanks  are -then  eliminated  up  to  an  initial  delimiter. 
Various  tests  are  made  to  determine  whether  the  statement  is 
an  assignment  statement.   If  so,  ASGMTST  is  called.   If  not, 
gross  classification  is  made  based  on  the  first  two  charac- 
ters in  the  statement.   In  some  cases,  such  as  COMMON  and 
COMPLEX,  finer  classifications  must  be  made.   If  the  NSFORT 
translator  is  to  take  no  action  on  the  particular  statement 
then  it  is  copied  into  an  output  file  (DUPEIT).   Otherwise, 
the  appropriate  procedure  is  called  to  perform  the 
necessary  translation.   Additionally,  PROCCRD  scans  state- 
ment numbers  for  end-of-loop  statements  (see  DOSTMT  above). 

23.  READST  (R) 

a.  Function.   Translation  of  READ  statements. 

b.  Calling  procedures.   PROCCRD. 

c.  Procedures  called.   DIMENIT,  BUPEIT,  ERROR, 
PARLOC,  SEARCH,  SQZBLNK. 
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d.   Description .   READST  performs  the  action  des- 
cribed in  Appendix  P.   The  original  statement  is  then  copied 
onto  NSWORK  by  DUPEIT. 
2k.       SEARCH.  (SR) 

a.  Function .   Determination  of  the  presence  of  non- 
standard variable  names. 

b.  Calling  procedures.   ASGMTST,  CALLST,  COMSTMT , 
EQUIVST,  EXPRSN,  IFSTMT,  READST. 

c.  Procedures  called.   None. 

d.  -  Description .   SEARCH  searches  statements  or 
portions  of  statements  for  both  explicitly  and  implicitly 
declared  nonstandard  variable  names.   This  search  is  based 
on  the  lists  maintained  by  IMPSTMT  and  TYPSTMT. 

25.  SQZBLNK  (S) 

a.  Function.   Elimination  of  blanks  in  nonstandard 
FORTRAN  statements. 

b.  Calling  procedures.   COMSTMT,  DIMENST,  DOSTMT, 
EQUIVST,  FUNCST,  IMPSTMT,  LITLOC,  NAMELST,  PROCCRD,  READST. 

c.  Procedures  called.   None. 

d.  Description .   Blanks  are  eliminated  by  compres- 
sing a  statement  or  portion  of  a  statement  as  specified  by 
the  calling  procedure. 

26.  TYPSTMT  (T) 

a.   Function .   Translation  of  explicit  declaration 
statements . 

b,  "Calling  procedures.   PROCCRD. 
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c.  Procedures  called.   DUPEIT,  ERROR,  LITLOC, 
NSTDST,  NUCARD. 

d.  Description.   The  NSFORT  translator  maintains  a 
list  of  all  explicitly  declared  variables  and  their  variable 
type.   This  list  is  constructed  by  TYPSTMT.   The  translation 
of  explicit  declaration  statements  is  as  described  in  Appen- 
dix P.   The  tranlated  statement  is  written  on  NSWORK  by 
NUCARD  or  DUPEIT  as  appropriate. 
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APPENDIX  B 
JOB  CONTROL  LANGUAGE  USED  WITH  THE  NSFORT  TRANSLATOR 

When  the  NSFORT  translator  is  used  on  the  IBM  System 
36O/67  under  OS/MVT  four  job  steps  are  required.   These  four 
job  steps  (with  the  job  step  name)  are  (1)  compilation  of 
the  NSFORT  translator  source  deck  (NSFORTC),  (2)  loading  of 
the  translator  object  modules  (NSFORTL) ,  (3)  execution  of 
the  translator  load  module,  or  translation  of  the  NSFORT 
source  program  (NSFORTG),  and  (h)    compilation,  loading  and 
execution  of  the  translated  FORTRAN  source  program  (FORTRAN) . 

On  the  following  pages  the  sequence  of  job  steps  and 
the  job  control  language  is  shown.   Significant  points  to 
note  are  (1)  the  overlay  technique  in  the  NSFORTL  step,  (2) 
the  data  sets  that  must  be  defined  in  the  NSFORTG  step,  (3) 
the  passing  of  the  FORTRAN  source  program  from  the  NSFORTG 
step  to  the  FORTRAN  step,  and  (4)  the  condition  code  screen- 
ing in  the  FORTRAN  step. 

By  use  of  a  user  library  the  translator  may  be  kept  on 
disk  on  disk  as  a  load  module  allowing  the  user  to  be'gin 
with  the  NSFORTG  job  step.   In  this  case  a  JOBLIB  DD  card 
is  required  and  the  NSFG  10  card  appropriately  modified.   Job 
control  language  is  also  shown  for  this  use  of  the  translator. 
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APPENDIX  D 
SYNTAX  RULES  FOR  NSFORT  STATEMENTS 

There  are  only  three  statements  in  NSFORT  that  are  dif- 
ferent from  normal  FORTRAN.   The  syntax  rules  for  these 
statements  are  listed  below.   The  syntax  rules  for  regular 
FORTRAN  statements  are  in  accordance  with  Reference  8. 

Common  to  the  three  NSFORT  statements  is  the  word 
NONSTANDARDi*n,  which  may  at  any  time  be  abbreviated  to 
NONSTDi*n  or  to  NSTDi*n.   The  rule  for  this  word  is  as 
follows 


NONSTANDARD 

NONSTD 

NSTD 


i*n 


where    i  —  is  a  number  from  1  through  6  that  signifies 
the  FORTRAN  variable  type  to  be  mapped  into. 
The  numbers  1  through  6  represent  respectively 
REAL*4,  REAL*8,  INTEGER*2,  INTEGER*^, 
C0MPLEX*8,  and  C0MPLEX*l6.   There  is  no  mapping 
to  LOGICAL  variables, 
n  —  is  a  number  from  1  through  999  and  represents 
the  size  of  the  nonstandard  variable.   Each 
nonstandard  variable  will  map  into  a  FORTRAN 
array  whose  first  dimension  is  n. 

IMPLICIT  Statement 

The  syntax  rules  for  the  IMPLICIT  Statement  are  the  same 

as  for  FORTRAN  except  that  NONSTANDARDi*n   (or  an  accepted 
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abbreviation)  may  be  used  in  the  same  manner  as  COMPLEX, 
INTEGER,  LOGICAL,  and  REAL. 
NONSTANDARDi*n  Statement. 

The  syntax  rules  for  the  nonstandard  explicit  spec-ifi- 
cation  statement  are  as  follows 


[NONSTANDARD]  i*n  a] (s] )/x, /  ,a2(s2)/x2/  , . . .  , 


NONSTD 
NSTD 


a.(s  )/x./,...,ak(sk)/xk/ 


where   a.    —  is  a  nonstandard  variable,  array,  or  func- 

tion  name.   If  a.  is  a  nonstandard  function 

name  then  (s.)  must  be  (*)  and  /x./  must  not 

be  used. 

(s.)  —  is  optional  and  gives  dimension  information 
j 

for  arrays  or,  if  (s.)  is  (*),  identifies 

J 

nonstandard  function  names.   Each  s .  is  a 

J 

series  of  up  through  6  integer  constants 

i 
or  integer  variables  if  in  a  subprogram, 

separated  by  commas,  which  represent  the 
maximum  dimensions  of  the  array, 
(x.)  —  is  optional  and  represents  initial  data 

values.   The  number  and  order  of  the  data 
values  must  account  for  the  later  addition, 
by  the  NSFORT  translator,  of  n  as  the  first 
dimension. 
NONSTANDARDi*n  FUNCTION  Statement 

The  syntax  rules  for  the  NONSTANDARD! *n  FUNCTION  State- 
ment are  as  follows 
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fNONSTANDARDl 
NONSTD 
NSTD 


i*n  FUNCTION  name  (a,,a?,...,a,,...,a.) 


where   name  —  is  the  name  of  the  nonstandard  function. 

a.    --is  an  argument.   It  must  be  a  nonsubscripted 
variable,  array,  or  dummy  name  of  another 
subprogram.   There  must  be  at  least  one 
argument  in  the  argument  list. 
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APPENDIX  E 
SUMMARY  OF  NSFORT  CODES 

Below  are  listed  the  various  codes  that  are  used  by  the 
NSFORT  translator. 

A.   VARIABLE  TYPE  CODES 


Variable  Type 

Code 

REAL*4  - 

1 

REAL*8 

2 

INTEGER*2 

3 

INTEGER*4 

4 

C0MPLEX*8 

5 

C0MPLEX*16 

6 

LOGICAL*! 

7 

L0GICAL*4 

8 

Variable  Type  Code 

N0NSTANDARD1  A 

N0NSTANDARD2  B 

N0NSTANDARD3  C 

N0NSTANDARD4  D 

N0NSTANDARD5  E 

N0NSTANDARD6  F 


B.   OPERATION  CODES 

Operation 

Addition:  + 
Subtraction:  - 
Multiplication:  * 
Division:  / 
Exponentiation 
Unary  minus :  - 
Compare:  ,LT. 
Compare:  .LE. 
Compare:  ,EQ. 
Compare:  .NE. 
Compare:  .GE. 
Compare:  ,GT. 


** 


Code 

A 
S 
M 
D 
E 
N 
1 
2 
3 

5 

6 
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C.   SUBROUTINE  NAME  CODE 

When  operations  (or  comparisons)  involving  nonstandard 
variables  are  to  be  performed,  the  translator  generates  a 
CALL  statement  to  a  subroutine  which  will  perform  this  task. 
The  subroutine  name  uniquely  identifies  this  task  by  means 
of  the  following  format : 

N$abcd 

where  N$  —  uniquely  identifies  this  subroutine  as  one 
which  performs  tasks  involving  nonstandard 
variables . 

a   —  is  the  VARIABLE  TYPE  CODE  representing  the 

variable  type  of  the  result  of  the  operation 
or  comparison.   The  result  is  the  first 
argument  in_  the  argument  list  for  this  sub- 
routine . 

b   --  is  the  VARIABLE  TYPE  CODE  representing  the 

type  of  the  first  operand  of  the  operation  or 
comparison.   The  first  operand  is  the  second 
argument  in  the  argument  list. 

c   —  is  the  OPERATION  CODE  for  the  operation  or 
comparison  to  be  performed.   If  "c"  is  not 
generated  then  the  operation  is  simple  arith- 
metic assignment.   (if  "c"  Is  not  generated, 
then  "d"  is  also  not  generated.) 
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d   —  is  the  VARIABLE  TYPE  CODE  representing  the 
type  of  the  second  operand  of  the  operation 
or  comparison.   The  second  operand  is  the 
third  argument  in  the  argument  list.   If  "c"  is 
generated  and  "d"  is  not,  then  the  operation 
is  necessarily  unary  minus. 

The  user  must  supply  the  subroutines  for  which  the  NSFORT 
translator  generates  CALL  statements. 

D.   TEMPORARY  VARIABLE  NAME  CODE 

When  temporary  variables  are  created  by  the  NSFORT  trans- 
lator the  format  employed  is 

T$a(i ,j) 

where   T$  —  uniquely  identifies  the  variable  as  one 
created  by  the  NSFORT  translator. 

a   —  is  the  VARIABLE  TYPE  CODE  for  this  temporary 
variable. 

i   —  is  the  subscript  which  represents  the  size 

of  a  nonstandard  temporary  variable.   If  the 
VARIABLE  TYPE  CODE  is  1  through  8  (not  non- 
standard) this  first  subscript  is  not  used 
and  the  format  is  T$a( j ) . 

j   —  is  the  subscript  which  uniquely  identifies 
different  temporary  values. 

The  user  has  no  control  over  temporary  variables. 


Ill 


APPENDIX  F 
TRANSLATOR  ACTION  FOR  SPECIFIC  FORTRAN  AND  NSFORT  STATEMENTS 

Arithmetic  Assignment  Statement. 

If  the  assignment  statement  contains  no  variables  that 
have  been  identified  as  nonstandard  then  no  action  is  taken. 
If  nonstandard  variables  are  present  then  the  arithmetic 
expression  on  the  right  of  the  "="  symbol  is  processed, 
yielding  one  or  more  temporary  variables  or,  in  the  case  of 
a  simple  assignment  statement  (e.g.  "A=B"),  the  actual 
variable  is  used.   (See  Arithmetic  or  Logical  Expression 
below.)   A  CALL  statement  is  then  generated  to  effect  the 
actual  assignment.   Implicitly  declared  nonstandard 
variables  encountered  in  this  statement  are  dimensioned  with 
the  nonstandard  size  if  this  action  has  not  been  previously 
taken.   For  example, 

NSFORT:        IMPLICIT  NONSTANDARD! *2 (A- C ) , LOGICAL ( P-R) 

1  A=B+C 

2  A=100. 

3  P=B.GT,C 

FORTRAN:       IMPLICIT  REAL*4  (A-C)  .LOGICAL ( P-R) 

REAL*4  T$A(2,1) 
L0GICAL*1  T$7(l) 
DIMENSION  C(2) ,B(2)  ,A(2) 

1  CALL  N$AAAA  (T$A(1,1),  B(l),  C(l)) 
CALL  N$AA    (A(l)  ,  T$A(1  ,1)) 

2  CALL  N$A1    (A(l )  ,  100.) 

3  CALL  N$7A6A  (T$7(l),  B  ( 1  )  ,  ~C  ( 1  )  ) 
P  =  T$7(l) 
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Arithmetic  or  Logical  Expression. 

Translator  action  is  contingent  on  the  type  of  statement 
containing  the  expression.   Using  the  common  reverse  Polish 
and  triplet  method  [Ref.  9]  the  expression  is  reduced  to  a 
series  of  binary  operations  (except  in  the  cases  of  unary 
minus  and  ".NOT.").   Nonstandard  function  references,  when 
encountered,  are  modified  to  call  a  subroutine  in  a  manner 
compatible  with  the  NSFORT  translator's  processing  of 
NONSTANDARDi*n-FUNCTION  statements.   The  subroutine  name  is 
formed  by  truncating  the  function  name  to  5  characters  and 
concatenating  a  "$"  symbol.   (See  example  below.)   For  each 
triplet  containing  nonstandard  variables  a  CALL  statement 
is  constructed  which  will  cause  the  desired  operation  or 
comparison  to  be  performed.   For  triplets  not  containing 
nonstandard  variables,  a -FORTRAN  assignment  statement  is 
constructed  which  will  perform  the  desired  operation  or 
comparison.   In  both  of  the  above  cases  the  type  of  the 
result  is  determined  by  the  NSFORT  translator  based  on  the 
types  of  the  operand(s).   Temporary  variables  of  the  appro- 
priate type  are  used  to  store  values  of  intermediate  trip- 
lets.  The  temporary  variable  containing  the  result  of  the 
final  triplet  contains  the  value  of  the  expression.   If 
the  expression  was  initially  degenerate  (i.e.  a  single 
variable  name)  then  no  temporary  variables  are  used. 
Implicitly  declared  nonstandard  variables  encountered  in 
an  expression  are  dimensioned  with  the  nonstandard  size  if 
this  action  has  not  been  previously  taken.   For  example, 
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NSFORT:        IMPLICIT  NONSTANDARD2*3 ( A-C )  ,LOGI CAL ( P-R ) 

NONSTANDARD2*3  AVG123(*) 

1  A100  =  AVG123(B100,B101  ,B102,0.)**2 

2  P=B100.LE.O. .AND.B101 .LE.O. 


FORTRAN:        IMPLICIT  REAL*8  ( A-C )  ,LOGI CAL ( P-R ) 

REAL*8  T$B(3,2) 
LOGICAL*!  T$7(3) 
DIMENSION  B102(3) ,B1 01(3)  ,B1 00(3)  ,A1 00(3) 

1  CALL  $AVG12  (T$B(1,1),  B100(l),  B101(l), 
*B1 02(1)  ,0.) 

CALL  N$BBE4  (T$B(1,2),  T$B(1,1),  2) 
CALL  N$BB    (A100(l )  ,  T$B(1  ,2)) 

2  CALL  N$7B21  (T$7(l),  B100(l),  0.) 
CALL  N$7B21  (T$7(2)  ,  B101(l)  ,  0.) 

_T$7(3)  =  T$7(l)  .AND.  T$7(2) 
P  =  T$7(3) 


Arithmetic  IF  Statement. 

If  the  expression  in  the  arithmetic  IF  statement  con- 
tains no  nonstandard  variables  then  no  action  is  taken.   If 
nonstandard  variables  are  present  the  expression  is  pro- 
cessed.  (See  Arithmetic  or  Logical  Fxpression.)   The 
resulting   expression  in  this  case  will  necessarily  be 
nonstandard.   A  CALL  statement  will  then  be  constructed 
which  will  cause  a  ",LT."  comparison  of  the  expression 
result  with  zero.   Next,  a  logical  IF  statement  will  be 
constructed  which,  if  the  above  comparison  is  true,  will 
cause  control  to  be  passed  to  the  first  statement  number  in 
the  original  arithmetic  IF  statement.   Similarly,  another 
CALL  statement  will  be  constructed  which  will  cause  an 
" .EQ."  comparison  of  the  expression  result" with  zero.   Again, 
a  logical  IF  statement  will  be  constructed  which,  if  the 
preceding  comparison  is  true,  will  cause  control_to  be 
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passed  to  the  second  statement  number.  Following  this  a  GO 
TO  statement  will  be  constructed  which  will  by  default  pass 
control  to  the  third  statement  number.   For  example 

NSFORT:         IMPLICIT  N0NSTANDARD4*2 ( A-C ) 
1  IF  (A100+A101)  10,20,30 


FORTRAN:        IMPLICIT  INTEGER*4  (A-C) 

INTEGER*4  T$D(2,1 ) 
LOGICAL*!  T$7(l) 
DIMENSION  AT  01 (2)  ,A100(2) 
1  CALL  N$DDAD  (T$D(1  ,1 )  ,  A100(l),  A101(l)) 
-CALL  N$7D11  (T$7(l),  T$D(1,1),  0.0) 
IF  (T$7(l))  GO  TO  10 
CALL  N$7D31  (T$7(l),  T$D(1,1),  0.0) 
IF  (T$7( 1 ) )  GO  TO  20 
GO  TO  30 


ASSIGN  Statement. 

No  action  is  taken. 
Assigned -GO  TO  Statement. 

No  action  is  taken. 
Assignment  Statement . 

See  Arithmetic  Assignment  Statement  or  Logical  Assign- 
ment Statement. 
AT  Statement. 

No  action  is  taken. 
BACKSPACE  Statement. 

No  action  is  taken. 
BLOCK  DATA  Statement. 

No  action  is  taken. 
CALL  Statement . 

If  the  argument  list  contains  no  nonstandard  variables 
then  no  action  is  taken.   If  nonstandard  variables  are 
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present  in  the  argument  list  then  each  argument  that  con- 
tains a  nonstandard  variable  is  individually  processed. 
(See  Arithmetic  or  Logical  Expression  above.)   The  CALL 
statement  is  then  rewritten  with  the  various  expression 
results  replacing  those  arguments  that  contained  nonstandard 
variables.   For  example, 

NSFORT:         IMPLICIT  N0NSTANDARD6*3 ( A-C ) 

1  CALL  SUBA  (  'PR0B1  '  ,A100+A101  ,B100) 

FORTRAN:      "IMPLICIT"  COMPLEX*! 6  (A-C) 

C0MPLEX*16  T$F(3,1 ) 
DIMENSION  A101(3)  ,A100(3)  ,B100(3) 
1  CALL  N$FFAF  (T$F(1,1),  A100(l),  A101(l)) 
CALL  SUBA  (  '  PR0B1  '  ,  T$F(1,1),  B100(lj) 

COMMON  Statement. 

If  the  COMMON  statement  contains  no  nonstandard  vari- 
ables then  no  action  is  taken.   For  each  nonstandard 
variable  in  the  COMMON  statement  that  contains  dimension 
information  the  nonstandard  size  is  added  as  the  first  sub- 
script.  For  nonstandard  variables  containing  no  dimension 
information  and  for  all  non-nonstandard  variables  no  action  is 
taken.   Implicitly  declared  nonstandard  variables  encountered 
in  this  statement  are  dimensioned  (not  in  this  statement) 
with  the  nonstandard  size  if  this  action  has  not  been 
previously  taken.   For  example, 

NSFORT:        IMPLICIT  N0NSTANDARD2*3  (  A-~C  ) 

DIMENSION  A100(10)  ,A101 (10) ,D1 00(10) 
COMMON  A10C,A101(10)5D100(10),A102 
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FORTRAN:        IMPLICIT  REAL*8  (A-C) 

DIMENSION  A102(3) 

DIMENSION  Al 00(3,10)  ,A101 (3,10)  ,D1 00(10) 
COMMON Al 00,  Al 01 ( 3  , 1 0  ) I  ,D1 00 ( 1 0 )  ,  Al 02 


COMPLEX  Statement. 

See  Explicit  Specification  Statement. 
COMPLEX  FUNCTION  Statement. 

See  FUNCTION  Statement. 
CONTINUE  Statement. 

No  action  is  taken. 
Control  Statements. 

See  specific  control  statement. 
DATA  Initialization  Statement. 

If  the  DATA  statement  contains  any  implicitly  declared 
nonstandard  variables  these  are  dimensioned  with  the  non- 
standard size  if  this  action  has  not  been  previously  taken 
For  example, 

NSF0RT:        IMPLICIT  N0NSTANDARD3*2 (A-C) 

DATA  A100/2*0/ 


FORTRAN:       IMPLICIT  INTEGER*2  (A-C) 

DIMENSION  Al 00(2) 
DATA  A100/2*0/ 


See  18,  Appendix  H  for  coding  restrictions. 
DEBUG  Statement. 

No  action  is  taken.  - 

DEFINE  FILE  Statement. 

No  action  is  taken. 
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DIMENSION  Statement. 

The  NSFORT  translator  maintains  a  list  of  all  dimen- 
sioned variable  names  in  order  to  distinguish  between 
assignment  statements  and  statement  functions.   The  nonstan- 
dard size  is  added  as  the  first  subscript  for  all  implicitly 
declared  nonstandard  variables.   For  example, 

NSFORT:         IMPLICIT  NONSTANDARD! *3 (A-C ) 

DIMENSION  A100(4,10)  ,D100(50) 

FORTRAN:       "IMPLICIT  REALM  (A-C) 

DIMENSION  A100(3,4,10) ,D100(50) 

See  8,  Appendix  H  for  coding  restrictions. 
DISPLAY  Statement. 

No  action  is  taken. 
DO  Statement. 


In  order  to  permit  a  statement  containing  nonstandard 
variables  (which  will  likely  be  expanded  by  the  NSFORT 
translator  into  several  statements)  to  be  the  last  statement 
in  a  DO  loop,  the  statement  number  defining  the  loop  must  be 
modified.   The  new  number  will  be  99999  minus  the  number  of 
statement  numbers  the  NSFORT  translator  has  generated'up  to 
this  point.   For  example, 

NSFORT:        IMPLICIT  N0NSTANDARD5*3 ( A-C ) 

DO  100  1  =  1  ,10 
IF  (J)  10,20,100 
100  A=B+C 
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FORTRAN:        IMPLICIT  C0MPLEX*8  (A-C) 

C0MPLEX*8  T$E(3,1) 
DIMENSION  C(3)  ,B(3) ,A(3) 
DO  99999  1  =  1  ,10 
IF  (J)  10,20,100 
100  CALL  N$EEAE  (T$E(1,1),  B(l),  C(l)) 
CALL  N$EE    (A(l) ,  T$E(1 ,1)) 
99999  CONTINUE 


DOUBLE  PRECISION  Statement. 

See  Explicit  Specification  Statement. 
DOUBLE  PRECISION  FUNCTION  Statement. 

See  FUNCTION  Statement. 
END  Statement. 


No  alteration  of  the  statement  is  made.   This  statement 
causes  the  NSFORT  translator  to  be  made  ready  to  process  a 
new  subprogram. 
END  FILE  Statement. 

No  action  is  taken. 
ENTRY  Statement. 

No  action  is  taken. 
EQUIVALENCE  Statement. 

If  the  EQUIVALENCE  statement  contains  no  nonstandard 
variables  then  no  action  is  taken.   For  each  nonstandard 
variable  in  the  EQUIVALENCE  statement  that  contains  sub- 
scripts a  "1"  is  added  as  the  first  subscript.   For  non- 
standard variables  containing  no  subscripts  and  for  all 
non-nonstandard  variables  no  action  is  taken.   Implicitly 
declared  nonstandard  variables  encountered  in  this  statement 
are  dimensioned  (not  in  this  statement)  with  the  nonstandard 
size  if  this  action  has  not  been  previously  taken.  For  example, 
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NSFORT:        IMPLICIT  NONSTANDARD2*4  (A-C) 

DIMENSION  A100(10),A101(10),D100(10) 
EQUIVALENCE  (A100,A101(5),D100(5),A102) 


FORTRAN:        IMPLICIT  REAL*8  (A-C) 

DIMENSION  A102(4) 

DIMENSION  A100(4,10)  ,A1 01(4,10)  ,D100(10) 
EQUI VALENCE (Al 00  ,A1 01 (1 ,5) ,D 100(5) ,A102) 


Explicit  Specification  Statement. 

For  COMPLEX,  DOUBLE  PRECISION,  INTEGER,  LOGICAL,  and 
REAL  type  statements  no  alteration  of  the  statement  is  made 
The  NSFORT  translator  maintains  lists  of  all  dimensioned 
variable  names  and  all  explicitly  declared  variable  names. 
See  2,  Appendix  H  for  coding  restrictions.   For  explicit 
nonstandard  declaration  see  NONSTANDARDi*n  Statement. 
EXTERNAL  Statement. 

No  action  is  taken. 
FIND  Statement. 

No  action  is  taken, 
FORMAT  Statement. 

No  action  is  taken.   See  193  Appendix  H  for  coding 
restrictions . 
FUNCTION  Statement. 

For  FUNCTION  statements  in  which  the  type  is  not 
explicitly  stated  no  action  is  taken.   For  FUNCTION  state- 
ments that  explicitly  contain  COMPLEX,  DOUBLE  PRECISION, 
INTEGER,  LOGICAL,  or  REAL  no  alteration  of  the  statement  is 
made.   The  NSFORT  translator  will  add  the  function  name  to 
its  list  of  explicitly  declared  variable  names..-  For  non- 
standard functions  see  NONSTANDARDi*n  FUNCTION  Statement. 
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GO  TO  Statement. 

No  action  is  taken. 
IF  Statement. 

See  Arithmetic  IF  Statement  or  Logical  IF  Statement. 
IMPLICIT  Statement. 

For  that  portion  of  the  IMPLICIT  statement  that  relates 
to  COMPLEX,  INTEGER,  LOGICAL,  and  REAL  no  alteration  of  the 
statement  is  made.   For  that  portion  that  makes  nonstandard 
alphabet  assignments  the  IMPLICIT  statement  is  modified  in 
that  the  NONSTANDARDi*n  is  replaced  by  REAL***,  REAL*8, 
INTEGER*2,  INTEGER***,  C0MPLEX*8,  or  C0MPLEX*l6  as  i  is 
1,2, 3,**, 5  or  6  respectively.   For  example, 

NSFORT:         IMPLICIT  INTEGER( P  ,Q  ,R)  ,  NONSTANDARD! *2  (A-C) 

FORTRAN:        IMPLICIT  INTEGER ( P  ,Q , R)  ,  REAL*4  (A-C) 

A  DIMENSION  statement  is  generated  in  which  all  implicitly 
declared  nonstandard  variables  used  in  a  subprogram  are 
properly  dimensioned.   See  2,  Appendix  H  for  coding 
restrictions . 
Input/Output  Statements. 

See  specific  input/output  statement. 
INTEGER  Statement. 

See  Explicit  Specification  Statement. 
INTEGER  FUNCTION  Statement . 

See  FUNCTION  Statement. 
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Logical  Assignment  Statement. 

If  the  logical  assignment  statement  contains  no  non- 
standard variables  then  no  action  is  taken.   If  nonstandard 
variables  are  present  then  the  logical  expression  on  the 
right  of  the  M="  symbol  is  processed,  yielding  a  temporary 
logical  variable.   (See  Arithmetic  or  Logical  Expression 
above.)   A  logical  assignment  statement  is  then  constructed 
to  effect  the  actual  assignment.   Implicitly  declared  non- 
standard variabj.es  encountered  are  dimensioned  with  the 
nonstandard-size  if  this  action  has  not  been  previously 
taken.   For  example 

NSFORT:         IMPLICIT  N0NSTANDARD1 *2  (A-C),  LOGICAL(P-R) 
1  P=A.GE.B 


FORTRAN:        IMPLICIT  REAL*4  (A-C )  ,L06I CAL ( P-R) 

L0GICAL*1  T$7(l  ) 
DIMENSION  B(2)  ,A(2) 
1  CALL  N$7A5A  (T$7(l)  ,  A ( 1 )  ,  B(l)) 
P  =  T$7(1) 


LOGICAL  Statement. 

See  Explicit  Specification  Statement. 
LOGICAL  FUNCTION  Statement. 

See  FUNCTION  Statement. 
Logical  IF  Statement . 

If  neither  the  logical  expression  nor  the  conditional 
statement  contain  nonstandard  variables  then  no  action  is 
taken.   If  the  logical  expression  contains  nonstandard 
variables  it  is  processed  yielding  a  temporary  logical 
variable  (See  Arithmetic  or  Logical  Expression  above.) 
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If  the  logical  expression  does  not  contain  nonstandard 
variables  then  it  is  left  intact.   If  the  conditional 
statement  does  not  contain  nonstandard  variables  then  the 
logical  IF  statement  is  modified  in  that  the  logical 
expression  is  replaced  by  the  temporary  logical  variable. 
If  the  conditional  statement  contains  nonstandard  variables 
then  control  is  routed  through  or  around  this  conditional 
statement  based  on  the  value  of  the  temporary  logical 
variable  or  the_  logical  expression.   For  example 

NSFORT:         IMPLICIT  N0NSTANDARD3*2  (A-C) 

1  IF  (I  .EQ.O)  GO  TO  30 

2  IF  (A100.GT.B100)  GO  TO  40 

3  IF  (I  .EQ.O)  A100  =  B100  +  C100 

4  IF  (A100.LT.0)  A100=-A100 


FORTRAN:       IMPLICIT  INTEGER*2  (A-C) 

INTEGER*2  T$C(2,1  ) 
LOGICAL*!  T$7(l) 
DIMENSION  B 100(2)  , AT  00(2)  ,C100(2) 

1  IF  (I  .EQ.O)  GO  TO  30 

2  CALL  N$7C6C  (T$7(l),  A100(l),  B100(l)) 
IF  (T$7(l))  GO  TO  40 

3  IF  ( .NOT. (I .EQ.O))  GO  TO  99999 

CALL  N$CCAC  (T$C(1  ,1  )  »  B100(l),  C100(l)) 
CALL  N$CC    (A100(l),  T$C(1  ,1)) 
99999  CONTINUE 

4  CALL  N$7C14  (T$7(l),  A100(l),  0) 
IF  ( .N0T.(T$7(1  )))  GO  TO  99998 
CALL  N$CCN   (T$C(1,1),  A100(l)) 
CALL  N$CC    (AlOO(l)  ,  T$C(1  ,1)) 

99998  CONTINUE 


NAMELIST  Statement. 

If  the  NAMELIST  Statement  contains  any_  implicitly 
declared  nonstandard  variables  these  are  dimensioned  with 
the  nonstandard  size  if  this  action  has  not  been  previously 
taken.   For  example 
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NSFORT:        IMPLICIT  N0NSTANDARD6*3  (A-C) 

NAMELIST  /XRAY/  A100,D100 


FORTRAN:        IMPLICIT  C0MPLEX*16  (A-C) 

DIMENSION  A100(3) 
NAMELIST  /XRAY/  A100,D100 


NONSTANDARD! *n  Statement. 

The  NONSTANDARDi*n  is  replaced  in  the  same  manner  as 
the  IMPLICIT  NONSTANDARDI*n .   See  IMPLICIT  Statement.   The 
nonstandard  size  "n"  is  added  as  the  first  subscript  for 
each  variable  name  in  the  variable  name  list.   The  NSFORT 
translator  maintains  a  list  of  all  explicitly  declared  non- 
standard variable  names.   Nonstandard  function  names  that 
are  declared  in  the  NONSTANDARD! *n  statement  do  not  appear 
in  the  modified  type  statement.   For  example 

NSFORT:        NONSTAN DAR04*2  A100,ABCD(*)  ,B1 00 ( 1 0  , 1 0  ) /200*0/ 

FORTRAN:        INTEGER*4  Al 00 (2 )  ,B1 00 ( 2  , 1 0  ,1 0 )/200*0/ 

See  17,  Appendix  H  for  coding  restrictions. 
NONSTANDARD! *n  FUNCTION  Statement. 

"NONSTANDARD!*!!  FUNCTION"  is  replaced  by  "SUBROUTINE," 
the  function  name  is  truncated  to  5  characters  and  concaten- 
ated to  the  "$"  symbol,  and  the  untruncated  function  name  is 
added  as  the  first  argument  and  is  explicitly  declared  and 
dimensioned  based  on  "i . "   See  IMPLICIT  Statement.   (Note 
that  this  matches  with  the  treatment  of  function  references 
described  in  Arithmetic  and  Logical  Expression  above.)   For 
example , 
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NSFORT:        NONSTANDARD! *2  FUNCTION  SQROOT  (A) 


FORTRAN:       SUBROUTINE  $SQROO  (SQROOT, A) 

REAL*4  SQROOT(2) 


NONSTDI*n  Statement. 

Accepted  abbreviation  for  NONSTANDARD i *n . 
See  NONSTANDARDi*n  Statement. 
NONSTDi*n  FUNCTION  Statement. 

Accepted  abbreviation  for  NONSTANDARDi*n  FUNCTION. 
See  NONSTANDARDi*n  FUNCTION  Statement. 
NSTDi*n  Statement. 

Accepted  abbreviation  for  NONSTANDARD! *n. 
See  NONSTANDARD! *n  Statement. 
NSTDi*n  FUNCTION  Statement. 

Accepted  abbreviation  for  NONSTANDARD! *n  FUNCTION 
Statement.   See  NONSTANDARDi*n  FUNCTION  Statement. 
Output  Statements. 

See  specific  output  statement. 
PAUSE  Statement. 

No  action  is  taken. 
PRINT  Statement. 

No  action  is  taken. 
PUNCH  Statement. 

No  action  is  taken. 
READ  Statement. 

If  the  READ  statement  contains  any  implicitly  declared 
nonstandard  variables  these  are  dimensioned  wittrthe 
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nonstandard  size  if  this  action  has  not  been  previously 
taken.   For  example, 


NSFORT:        IMPLICIT  N0NSTANDARD2*3  (A-C) 

READ  (6,10)  A100 


FORTRAN:        IMPLICIT  REAL*8  (A-C) 

DIMENSION  Al 00(3) 
READ  (6,10)  A100 


See  19,  Appendix  H  for  coding  restrictions. 
REAL  Statement ». 

See  Explicit  Specification  Statement. 
REAL  FUNCTION  Statement. 

See  FUNCTION  Statement. 
RETURN  Statement. 

No  action  is  taken. 
REWIND  Statement. 

No  action  is  taken. 
Specification  Statements. 

See  specific  specification  statement. 
Statement  Function  Definition  Statement. 

If  the  statement  function  contains  no  nonstandard 
variables  then  no  action  is  taken;  otherwise  an  error 
message  is  generated  by  the  NSFORT  translator,  as  state- 
ment functions  may  not  contain  nonstandard  variables. 
See  10,  Appendix  H.  - 

STOP  Statement. 

No  action  is  taken. 
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Subprogram  Statements. 

See  specific  subprogram  statement. 
SUBROUTINE  Statement. 

No  action  is  taken. 
TRACE  Statement. 

No  action  is  taken. 
Type  Statement. 

See  Explicit  Specification  Statement  or  NONSTANDARDi*n 
Statement .    _ 
WRITE  Statement. 

No  action  is  taken.   See  19,  Appendix  H  for  coding 
restrictions . 
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APPENDIX  G 
RESULT  TYPE  OF  MIXED  TYPE  OPERATIONS 

When  an  operation  involving  operands  of  different  vari 
able  types  is  to  be  performed,  the  variable  type  of  the 
result  is  determined  by  the  table  below.   See  Appendix  E 
for  variable  type  codes. 
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APPENDIX  H 
DESIGN  LIMITATIONS  AND  RESTRICTIONS 

This  appendix  lists  the  limitations  in  the  design  of  the 
NSPORT  translator  and  the  restrictions  to  FORTRAN  program- 
ming which  must  be  observed  when  using  the  NSFORT  translator. 
If  any  of  these  limitations  and  restrictions  are  exceeded  or 
violated  then  three  things  may  happen:   (1)  the  NSFORT  trans- 
lator will  issue  an  error  message,  and/or  (2)  an  error  will 
be  caused  which  will  be  diagnosed  by  the  FORTRAN  compiler, 
or  (3)  an  error  will  be  caused  which  may  produce  unintended 
results.   For  each  of  the  limitations  and  restrictions  below, 
a  note  will  indicate  whether  or  not  the  NSFORT  translator 
will  recognize  the  violation. 

1.  Use  of  "$"  Symbol.   The  NSFORT  translator  uses  the 
"$"  symbol  to  uniquely  identify  translator  generated  tem- 
porary variable  names  and  subroutine  names.   Any  use  of  the 
combination  "T$"  as  the  first  two  characters  of  a  variable 
or  array  name  is  not  permitted  and  may  lead  to  erroneous 
results.   Any  use  of  "N$"  or  "$"  as  the  first  characters  of 
a  subroutine  name  may  also  cause  confusion.   (No  NSFORT 
error  message.) 

2.  IMPLICIT  and  Type  Statements.   The  IMPLICIT  state- 
ment, if  used,  must  be  the  first  statement  in  a  main  program 
or  the  second  statement  in  a  subprogram.   All  type  state- 
ments must  follow  the  IMPLICIT  statement  and  precede  all- 
other  specification  statements.   (No  NSFORT  error  message.) 
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3.  Nonstandard  Size,   Within  a  subprogram  the  size  for 
each  particular  nonstandard  type  must  be  consistent.   For 
example,  NONSTANDARD!* 2  and  NONSTANDARDj *3  cannot  both  be 
used  in  the  same  subprogram  when  i=j .   (Error  message  " 
generated, ) 

4.  Explicitly  Declared  Variables.   The  storage 

capacity  constraint  for  explicitly  declared  variable  and 

array  names  of  any  type  within  a  subprogram  (including  non- 

standard)  is  1-+  E.  n  (x.  +  3)  <  2000  where  x.  is  the  number 

1=1    i     —  l 

of  characters  in  the  i^h  explicitly  declared  variable   or 
array  name,  and  n  is  the  total  number  of  explicitly  declared 
variable  or  array  names  within  a  subprogram.   (Error 
message  generated,) 

5.  Explicitly  Declared  Nonstandard  Variables.   The 
storage  capacity  constraint  for  explicitly  declared  non- 
standard variable  and  array  names  within  a  subprogram  is 

1  +  E.  _  (x. +  1)  <  1000  where  x.  is  the  number  of  characters 
1=1    i     —  i 

in  the  i^h  explicitly  declared  nonstandard  variable  or 
array  name,  and  n  is  the  total  number  of  explicitly 
declared  nonstandard  variable  or  array  names  within  a 
subprogram,   (Error  message  generated.) 

6.  Nonstandard  Functions.   The  storage  capacity  con- 
straint for  nonstandard  function  names  within  a  subprogram 

is  1  +  E.  .,  (x.  +  1)  <  l4l  where  x.  is  the-number  of 
i=l   l     —  i 

characters  in  the  i^"  nonstandard  function  name,  and  n  is 
the  total  number  of  nonstandard  function  names  within  a 
subprogram.   (Error  message  generated.) 
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7.  Arrays  and  Nonstandard  Variables.   The  storage 
capacity  constraint  for  array  names  and  nonstandard  variable 
or  array  names  within  a  subprogram  is  1  +  £._,  (x.  +  1)  <_ 
1000  where  x.  is  the  number  of  characters  in  the  i^n  array 
name  or  nonstandard  variable  or  array  name,  and  n  is  the 
total  number  of  array  names  and  nonstandard  variable  or 
array  names  within  a  subprogram.   (Error  message  generated.) 

8 .  Explicitly  Declared  Nonstandard  Variables  and  the 
DIMENSION  Statement.   Explicitly  declared  nonstandard  vari- 
ables which" are  to  be  nonstandard  arrays  must  have  the 
dimension  information  in  the  NONSTANDARD! *n  statement. 
Explicitly  declared  nonstandard  variable  names  may  not  appear 
in  a  DIMENSION  statement.   (Error  message  generated.) 

9.  FORTRAN  Functions.   FORTRAN  functions  may  not 
contain  nonstandard  variables  in  their  argument  list.   (Error 
message  generated.) 

10.  Statement  Functions.   Statement  functions  may  not 
contain  nonstandard  variables.   (Error  message  generated.) 

11.  Nonstandard  Function  Names.   Since  the  NSFORT 
translator  truncates  nonstandard  function  names  to  5  charac- 
ters and  concatenates  them  to  a  "$"  symbol,  the  first  five 
characters  of  a  nonstandard  function  name  must  uniquely 
identify  it.   (No  NSFORT  error  message.) 

12.  -  Statement  Numbers  .   Within  a  subp-rogram  the  NSFORT 
translator  uses  statement  numbers  beginning  with  99999  and 
continuing  downward  in  decrements  of  one  for  as  many  as 


131 


needed.   Statement  numbers  that  are  in  the  range  used  by 
the  translator  may  not  be  used.   (No  NSFORT  error  message.) 

13.  Variable  Names.   Assignment  statements  that  begin 
with  the  character  sequences  "CALL",  "DATA",  "ENTRY", 
"F0RMAT(",  "IF(",  "REAL",  "READ(",  or  "WRITE(",  excluding 
blanks,  will  be  mishandled  by  the  NSFORT  translator  (No 
NSPORT  error  message.) 

14.  Subscripts .   Subscripts  may  not  contain  nonstandard 
variables.   (Error  message  generated.) 

15.  Subscripts .   Nonstandard  variables  may  not  contain 
in  excess  of  six  subscripts.   (No  NSFORT  error  message.) 

16.  Operands .   The  combined  length  of  a  variable  name 
and  all  its  subscript  information  or  a  non-nonstandard 
function  name  and  is  argument  list  (including  commas  and 
parentheses  but  excluding- blanks)  in  any  statement  contain- 
ing nonstandard  variables  must  not  exceed  30  characters . 
For  nonstandard  variables  the  limit  is  28  as  the  NSFORT 
translator  must  insert  two  characters.   (Error  message  - 
generated. ) 

17.  Initial  Data  Values  in  the  NONSTANDARDi*n  Statement 
The  NSFORT  translator  takes  no  action  on  initial  data  values 
in  the  NONSTANDARD! *n  statement.   It  is  necessary  for  the 
user  to  insure  that  the  resulting  statement  after  transla- 
tion will  assign  values  as  desired.   For  ©-xample,  in  the 
statement  "NONSTANDARD!  *2  ALPHA( 1 0  ,1 0) /xp/  "  ,  there  must  be 
200  initial  values,  x  ,  that  will  map  in  the  ALPHA  array  as 
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desired.   The  resulting  statement  will  be 

"REAL*4  ALPHA(2,10,10)/xn/*'  where  xn  is  unchanged.   (No 

NSFORT  error  message.) 

18.  DATA  Statement.   The  DATA  Statement  is  not  trans- 
formed by  the  NSFORT  translator  and  thus  caution  must  be 
exercised  in  using  nonstandard  variables  in  this  statement. 
Implicitly  declared  nonstandard  variables  encountered  for 
the  first  time  will  be  dimensioned  with  the  nonstandard 
size,  however  neither  the  subscripts  nor  the  number  of  data 
values  in  a" DATA  statement  will  be  altered.   A  FORTRAN 
compiler  error  will  result  if  a  nonstandard  variable 
appears  with  subscripts  because  the  NSFORT  translator  will 
not  add  a  subscript  for  the  nonstandard  size.   The  user 
may  make  use  of  the  DATA  statement  by  not  subscripting  non- 
standard variables  or  by  -adding  the  first  subscript  himself 
(No  NSFORT  error  message.) 

19.  Input/Output.   The  NSFORT  translator  takes  no 
action  on  input/output  statements  except  to  dimension  with 
the  nonstandard  size,  implicitly  declared  nonstandard 
variables  encountered  in  NAMELIST  or  READ  statements  for 
the  first  time.   Therefore  the  user  will  have  to  add  the 
first  subscript  for  nonstandard  variables  in  which  other 
subscripts  are  explicitly  used  in  input/output  statements. 
The  FORMAT  statement  must  be  written  by  t-he  user  to  account 
for  the  size  of  nonstandard  variables.   (No  NSFORT  error 
message . ) 
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20.   Expressions .   The  NSFORT  translator  evaluates 
expressions  using  a  reverse  Polish- and  triplet  method 
whereby  each  time  a  triplet  is  to  enter  the  reverse  Polish 
string  it  is  replaced  by  the  temporary  variable  containing 
the  triplet  result.   In  this  process  there  are  four  storage 
constraints  which  cannot  be  exceeded.   The  constraint  for 
the  length  of  the  reverse  Polish  string  is  E.  -,  (x.  +  1)  <  100 


where  x.  is  the  length  of  the  itn  operand  (including  sub- 


th 

scripts  or  arguments  but  excluding  blanks)  and  n  is  the 

number  of  operands  present  at  one  time  in  the  reverse  Polish 

string.   The  constraint  for  the  operator  stack  is  n  <  30 

where  n  is  the  number  of  operators  or  nonstandard  functions 

in  the  stack  at  one  time.   The  constraint  for  the  stack  of 

nonstandard  function  names  is  Z.  n  (x. +  1)  <  71  where  x.  is 

1=1    i     —  i 

the  number  of  characters  _in  the  i^b  nonstandard  function 
name j  and  n  is  the  number  of  nonstandard  function  names  in 
the  stack  at  one  time.   The  constraint  for  the  length  of 
the  argument  list  for  a  nonstandard  function  is  100  charac- 
ters, excluding  blanks,  after  each  expression  in  the  argu- 
ment list  has  been  replaced  by  a  temporary  variable. 
(Error  messages  generated.) 

21.   Nested  DO  Loops.   The  constraint  on  nested  DO  loops 
is  L=1  (x.  +6)  £  99  where  x.  Is  the  number  of  characters  in 
the  ith  statement  number,  and  n  is  the  number  of  nested  DO 
loops  at  any  point  in  the  program  with  different  terminal 
statements.   (Error  message  generated.) 
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APPENDIX  I 
NSFORT  DIAGNOSTIC  MESSAGES 

The  following  is  a  list  of  all  of  the  NSFORT  translator 
diagnostic  messages.   These  messages  are  generated  when  the 
translator  encounters  a  construction  which  it  does  not 
recognize,  when  a  logic  or  syntax  error  is  found  that 
prevents  proper  translation,  or  when  storage  space  for  the 
translator's  bookkeeping  is  exhausted.   It  should  be 
emphasized  that  the  translator  will  not  find  all  errors 
(see  Appendix  H) .   The  letter(s)  preceding  the  dash  in  the 
code  for  the  messages  is  an  abbreviation  for  the  name  of 
the  procedure  which  found  the  error.   These  abbreviations 
are  identified  in  Appendix  A. 

A  -01:   DESIGN  PARAMETER  EXCEEDED:   OPERAND. 

The  variable  name  with  subscripts  or  the  statement 
function  name  with  dummy  arguments  to  the  left  of 
the  "="  symbol  in  an  assignment  statement  or 
function  exceeds  30  characters  excluding  blanks. 
(See  16,  Appendix  H.) 
A  -02:   STMT  FN  CONTAINS  NONSTD. 

A  statement  function  contains  nonstandard  variables. 
The  identifier  on  the  left  side  of  an  arithmetic 
assignment  statement  is  subscripted  and  this  iden- 
tifier han  not  been  dimensioned.   Therefore  this 
statement  is  interpreted  as  a  statement  function 
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and  it  contains  nonstandard  variables.   (See  10, 
Appendix  H. ) 

A  -  03:  ASGMT  STMT  HAS  LOG  VAR  ON  ONLY  1  SIDE. 

An  assignment  statement  was  found  to  have  a  logical 
variable  on  only  one  side  of  the  "="  symbol. 

A  -04:   DESIGN  PARAMETER  EXCEEDED:   OPERAND. 

See  A  -01.   In  this  case  the  variable  is  nonstandard 
and  "1,"  must  be  inserted  as  the  first  subscript. 
.  Therefore,  if  the  original  variable  name  with  sub- 
scripts contains  in  excess  of  28  characters,  when 
"1,"  was  added  it  would  exceed  30  characters.   (See 
16  ,  Appendix  H . ) 

C0-01 :   NO  CLOSE  SLASH  FOUND. 

A  slash  was  found  in  a  comma  statement  delimiting 
a  labeled  common  name.   No  corresponding  close  slash 
was  found  in  the  statement. 

C0-02:   ILLEGAL  CHAR  FOLLOWS  COMMA  OR  SLASH. 

The  character  immediately  following  a  comma  or  a 
slash  is  illegal.   The  program  is  looking  at  the 
character  immediately  following  COMMON,  or  a  comma, 
or  the  closing  slash  on  a  labeled  common  name.   It 
is  expecting  to  find  a  variable  name  but  the  first 
letter  is  not  a  member  of  the  alphabet  or  there  is 
no  variable  name.  - 

C0-03:   VAR  IDENTIFIER  HAS  >  6  CHAR. 

An  identifier  was  found  to  have  more  than  6  charac- 
ters.  This  occurs  when  there  were  more  than  6 
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characters  from  the  first  character  of  an  identifier 
to  an  open  parenthesis,  a  comma,  a  slash,  or  to  the 
end  of  the  COMMON  statement. 

CO-04:   NO  CLOSE  PAREN  FOUND. 

A  variable  name  was  read,  a  parenthesis  was  found 
indicating  array  information.   No  corresponding 
close  parenthesis  was  found  in  the  remainder  of  the 
statement . 

CO-05:   ILLEGAL-  CHAR  FOLLOWS  CLOSE  PAREN. 

The-  character  immediately  following  a  close  paren- 
thesis was  not  recognized.   The  translator  expected 
to  find  a  comma,  a  slash,  or  the  end  of  the  COMMON 
statement. 

DA-01:   VAR  IDENTIFIER  HAS  >  6  CHAR. 

An  identifier  was  found  to  have  more  than  6  charac- 
ters.  More  than  6  characters  from  the  first  char- 
acter of  the  identifier  to  an  open  parenthesis,  a 
comma,  a  slash,  or  to  the  end  of  the  DATA  statement 
were  found.   The  first  variable  was  expected  to 
begin  immediately  following  the  word  DATA. 

DA-02:   NO  CLOSE  PAREN  FOUND. 

A  parenthesis  was  found  following  a  variable  name 
indicating  subscript  information  but  no  correspond- 
ing close  parenthesis  was  found  in  the  remainder  of 
the  statement. 

DA-03:   NO  CLOSE  SLASH  FOUND. 

A  slash  was  found  indicating  constant  values  but 
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no  corresponding  close  slash  was  found  in  the 
remainder  of  the  statement/ 

DA-04:   DATA  STMT  SYNTAX  ERROR. 

The  end  of  statement  was  encountered  unexpectedly 

or  an  illegal  character  followed  a  close  parenthesis, 

a  close  slash,  or  a  comma. 

DI-01:   OPEN  PAREN  NOT  FOUND  WHEN  EXPECTED. 

The  translator  was  looking  for  an  open  parenthesis 
following  a  variable  name.   No  open  parenthesis  was 
found  in  the  remainder  of  the  statement. 

DI-02:   EXP  DCL  NONSTD  CHAR  IN  DIMEN  STMT. 

An  explicitly  declared  nonstandard  variable  was 
found  in  a  dimension  statement.   (See  8,  Appendix 
H.)   When  a  nonstandard  variable  is  explicitly 
declared,  the  dimension  information  must  be  con- 
tained in  that  explicit  declaration  and  not  in  a 
dimension  statement  later  on  in  the  program. 

DI-03:   DESIGN  PARAMETERS  EXCEEDED:   DIMLIST. 

The  number  and  length  of  items  dimensioned  in  the 
program  exceeds  the  storage  capacity  for  this  list. 
(See  7,  Appendix  H. ) 

DI-04:  '  NO  CLOSE  PAREN  FOUND  WHEN  EXPECTED. 

An  open  parenthesis  was  found  indicating  dimension 
-information  but  no  close  parenthesis  was  found  in 
the  remainder  of  the  statement. 

DM-01:   DESIGN  PARAMETER  EXCEEDED:   DIMLIST. 
See  DI-03. 
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DO-01:   STMT  NUMBER  EXCEEDS  5  DIGITS. 

The  end-of-range  statement- number  in  a  DO  statement 
exceeds  5  digits.   The  statement  number  begins  with 
the  first  non  zero  character  following  the  DO  and 
extends  up  to  the  first  non-numeric  character 
found  (excluding  blanks), 

DO-02:   DESIGN  PARAMETER  EXCEEDED:   L00PN0S. 

The  number  and  length  of  end-of-range  statement 
numbers  of  nested  DO  loops  exceeds  the  storage 
capacity  for  this  list.   (See  21,  Appendix  H.) 

EQ-01:   EQUIVALENCE  STMT  SYNTAX  ERROR, 

The  first  character  of  a  variable  name  was  expected 
but  this  character  was  not  a  member  of  the  alphabet. 
The  first  variable  was  expected  to  begin  immediately 
following  the  "("after  EQUIVALENCE. 

EQ-02:   VAR  IDENTIFIER  HAS  >  6  CHAR, 

An  identifier  was  found  to  have  more  than  6  char- 
acters.  More  than  6  characters  from  the  first  . 
character  of  the  identifier  to  an  open  parenthesis, 
a  comma,  a  close  parenthesis  or  to  the  end  of 
EQUIVALENCE  statement  were  found.   The  first  vari- 
able was  expected  to  begin  immediately  following 
the  "("  after  EQUIVALENCE. 

EQ-03:   NO  CLOSE  PAREN  FOUND. 

An  open  parenthesis  was  found  but  no  corresponding 
close  parenthesis  was  found  in  the  remainder  of  the 
sentence , 
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EQ-04:   ILLEGAL  CHAR  FOLLOWS  ')'  OR  AT  END. 

The  character  following  a  closed  parenthesis  is  not 
recognized  or  the  end  of  the  EQUIVALENCE  statement 
occurs  unexpectedly. 

EX-01:   '.NOT.'  IN  ILLEGAL  POSITION. 

The  logical  operator  '.NOT.  '  was  found  in  an  illegal 
position.   It  was  expected  that  '.NOT.'  would  be 
first  in  an  expression  or  immediately  following  an 
.  open  parenthesis,  a  comma,  '.AND.',  or  '.OR.'. 

EX-02:   1ST- CHAR  OF  EXPRESSION  IS  ILLEGAL. 

The  first  character  of  an  arithmetic  or  logical 
expression  is  illegal.   The  translator  expected  to 
find  a  letter  in  the  alphabet,  a  number,  an  open 
parenthesis,  a  period,  or  a  minus  sign. 

EX-03:   VAR  OR  FUNC  IDENTIFIER  HAS  >  6  CHAR. 

A  variable  or  function  identifier  was  found  to  con- 
tain more  than  6  characters .   From  the  first  char- 
acter the  variable  or  function  identifier  an 
arithmetic,  relational,  or  logical  operator,  an 
open  or  close  parenthesis,  or  a  comma  was  not  found 
within  6  characters , 

EX-04:   DESIGN  PARAMETER  EXCEEDED:   FNSTAK. 

When  processing  expressions,  nonstandard  function 
names  are  stacked  when  found.   The- number  of  nested 
functions  exceeds  the  storage  capacity  for  this 
list,   (See  20,  Appendix  H.) 
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EX-05:   NONSTD  IN  SUPSCRPTS  OR  FUNC  ARG. 

When  processing  an  expression,  an  open  parenthesis 
following  an  identifier  was  found  indicating  sub- 
script information  or  indicating  function  arguments. 
Within  this  open  parenthesis  and  its  corresponding 
close  parenthesis,  nonstandard  variables  were  found. 
Nonstandard  variables  are  not  permitted  in  subscripts 
or  possibly  in  this  case,  the  function  was  not 
identified  as  a  nonstandard  function.   (See  9,  15, 
Appendix  H . ) 

EX-06:   DESIGN  PARAMETER  EXCEEDED:   RPSTR. 

When  processing  an  expression,  the  length  of  the 
reverse  Polish  string  exceeded  the  storage  capacity 
for  that  string.   (See  20,  Appendix  H.) 

EX-07:   ILLEGAL  CHARS  FOLLOWING  '.'. 

A  period  was  found  and  the  character  immediately 
following  the  period  was  examined.   If  this  character 
was  a  numeral,  the  period  is  treated  as  a  decimal 
point.   If  the  second  character  is  non-numeric,  then 
the  period  was  interpreted  to  be  the  first  period 
in  a  logical  constant.   Therefore  another  period 
was  expected  as  the  fifth  or  sixth  character  after 
the  first  period  indicating  a  .TRUE,  or  a  .FALSE. 
This  period  was  not  found  in  the  fifth  or  sixth 
character  following  the  first  period. 
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EX-08:   ILLEGAL  CHAR  FOLLOWS  LOG  CONST. 

The  program  expected  to  find  either  a  comma,  a 
parenthesis,  logical  .AND.,  .OR.,  or  the  end  of  the 
expression  following  a  logical  constant.   But  some 
other  character  was  found. 

EX-09:   DESIGN  PARAMETER  EXCEEDED:   RPSTR. 
See  EX-06. 

EX-10:   DESIGN  PARAMETER  EXCEEDED:   RPSTR. 
.  See  EX-06. 

EX-11  :   NO  CLOSE  PAREN  FOUND. 

An  open  parenthesis  was  found  in  a  location  other 
than  immediately  after  an  identifier  and  no  corres- 
ponding close  parenthesis  was  found  in  the  remainder 
of  the  statement ,        ( 

EX-12:   DESIGN  PARAMETER  -EXCEEDED :   RPSTR. 
See  EX-06. 

EX-13:   ILLEGAL  CHAR  FOLLOWS  CMPLX  CONSTANT. 

The  translator  program  expected  to  find  an  arithme- 
tic operator,  a  close  parenthesis,  a  comma,  or  end 
of  expression  following  the  close  parenthesis 
delimiting  a  complex  constant, 

EX-14:   ILLEGAL  CHAR  FOLLOWS  DELIMITER. 

The  character  immediately  following  an  arithmetic, 
.relational,  or  logical  operator,  a  parenthesis,  or 
a  comma  constitutes  an  illegal  FORTRAN  construction. 
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EX-15:   UNMATCHED  CLOSE  PAREN  FOUND. 

A  close  parenthesis  was  encountered  but  it  has  no 
corresponding  open  parenthesis  preceding  it. 

EX-16:   DESIGN  PARAMETER  EXCEEDED:   STCK. 

When  processing  expressions  by  the  reverse  Polish 
string  method  operators  are  stacked  as  described 
in  Reference  9.   The  stack  exceeds  the  storage 
capacity  allowed  by  the  translator.   (See  20, 
-  Appendix  H. ) 

EX-17:   UNMATCHED  OPEN  PAREN  FOUND. 

An  open  parenthesis  was  encountered  but  it  has  no 
corresponding  close  parenthesis  in  the  remainder  of 
the  statement. 

EX-18:   DESIGN  PARAMETER  EXCEEDED:   STCK. 
See  EX-16. 

EX-19:   DESIGN  PARAMETER  EXCEEDED:   OPERAND. 

A  variable  identifier  with  subscripts  or  a  non- 
nonstandard  function  identifier  with  arguments  - 
exceeds  30  characters  excluding  blanks,   (See  16, 
Appendix  H.) 

EX-20:   DESIGN  PARAMETER  EXCEEDED:   ARGS. 

The  argument  list  for  a  nonstandard  function  iden- 
tifier exceeds  100  characters,  excluding  blanks, 
after  each  expression  in  the  argument  list  has  been 
replaced  by  a  temporary  variable.   (See  20,  Appen- 
dix H.) 
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EX-21:   DESIGN  PARAMETER  EXCEEDED:   RPSTR. 

See  EX-06. 

EX-22:   DESIGN  PARAMETER  EXCEEDED:   OPERAND 
See  EX-19. 

EX-23:   LOG  VAR  FOUND  IN  ARITH  EXPR. 

In  processing  an  expression  a  logical  variable  or 
constant  was  encountered  but  the  associated  operator 
was  not  a  logical  operator. 

EX-24:   LOG  EXPR  CONTAINS  NONLOG  VAR. 

A  logical  operator  was  encountered  but  an  associated 
operand  was  found  which  was  not  a  logical  variable. 

EX-25:   DESIGN  PARAMETER  EXCEEDED:   RPSTR. 
See  EX-06. 

EX-26:   EXPR  SYNTAX  IN  ERROR. 

Upon  reaching  the  end  of  the  expression  and  emptying 
the  operator  stack  the  reverse  Polish  string  should 
have  been  reduced  to  a  single  temporary  variable. 
(See  Chapter  III.)   But  instead  more  than  one  vari- 
able was  found  remaining  in  the  reverse  Polish  string, 

EX-27:   DESIGN  PARAMETER  EXCEEDED:   OPERAND. 
See  EX-19. 

EX-28:   DESIGN  PARAMETER  EXCEEDED:   OPERAND. 

A  nonstandard  variable  identifier  with  subscripts 
exceeds  28  characters  excluding  blanks.  (See  16 , 
Appendix  H . ) 
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F  -01:   NO  OPEN  PAREN  FOUND  IN  FUNCTION  STMT. 

In  a  FUCTION  statement  the  open  parenthesis  that 
precedes  the  dummy  argument  list  wasnot  found. 

F  -02:   FUNC  IDENTIFIER  HAS  >  6  CHAR. 

In  a  FUNCTION  statement  the  names  of  the  function 
was  found  to  have  greater  than  6  characters. 

I  -01:   IMPLICIT  SPEC.  MUST  DEAL  W/A-Z,$. 

In  an  IMPLICIT  statement  the  first  character 
.  following  an  open  parenthesis  or  a  comma  was  not  an 
alphabetic  character. 

I  -02:   LAST  CHAR  IN  IMP  SPEC  PRECEDES  1ST. 

In  an  IMPLICIT  statement  the  translator  found  the 
construction:  a  b  h  £  r  where  q  is  a  comma  or  open 
parenthesis,  b  is  an  alphabetic  character,  h  is 
not  a  comma  and  not  a  close  parenthesis  (expected 
to  be  a  hyphen) ,  c  is  a  character  which  is  not 
alphabetic  or  is  alphabetic  but  precedes  b  in  the 
alphabetic  character  list,  and  r  is  a  comma  or  close 
parenthesis. 

I  -03:   UNRECOGNIZABLE  STATEMENT. 

The  statement  was  classified  as  IMPLICIT  since  it 
was  determined  not  to  be  an  assignment  statement  and 
it  began  with  IM,  but  in  further  processing  one  of 
the  following  unfamiliar  construct-ions  were  found. 
a.   The  ninth  character  in  the  statement  or  the 
second  character  following  a  close  parenthesis  was 
not  a  C,  I,  L,  N,  or  R  (COMPLEX,  INTEGER,  etc.). 
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b.  The  character  sequence  following  COMPLEX  was  not 
"(",  "*8(",  or  "*16(";  or  the  character  sequence 
following  INTEGER  was  not  "(",  M*2(%  or  »*1|(";  etc. 

c.  In  the  alphabet  lists  with  the  construction 

g_  b  r  c  s  where  q  is  a  comma  or  open  parenthesis,  b 
is  an  alphabetic  character,  and  c  is  any  character, 
a  comma  or  close  parenthesis  was  expected  in  posi- 
tion r  or  s  but  none  was  found. 

IF-01:.  OPEN  AND  CLOSE  PARENS  ADJACENT. 

If  an  IF  statement  the  construction  IFa) ,  where  a  is 
any  character,  was  found. 

IF-02:   ARITH  IF  STMT  CONTAINS  LOG  EXPRSN. 

The  IF  statement  was  classified  as  arithmetic  but  a 
logical  expression  was  found  within  the  parentheses. 

IF-03:   2ND  COMMA  NOT  FOUND  IN  ARITH  IF  STMT. 

The  IF  statement  was  classified  as  arithmetic  because 
in  the  right  side  of  the  statement  a  comma  was 
found  without  parentheses.   But  in  processing  the 
statement  the  required  second  comma  was  not  found. 

IF-04:   DESIGN  PARAMETER  EXCEEDED:   L00PN0S. 

The  translator  maintains  a  temporary  stack  of  nested 
DO  loop  end-of-range  statement  numbers.   In  the 
processing  of  a  logical  IF  statement  the  translator 
also  uses  this  stack.   The  storage- allocated  to  this 
stack  is  full.   (See  21,  Appendix  H.) 
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L  -01:   STMT  END  PRECEDES  LITERAL  END. 

A  literal  was  found  which  was  identified  by  the  code 
nH,  where  n  is  an  integer  constant  less  than  256,  but 
n  exceeds  the  remaining  length  of  the  statement . 

L  -02:   NO  CLOSE  QUOTE  WAS  FOUND. 

A  literal  was  found  which  was  identified  by  an 
apostrophe  but  no  corresponding  close  quote  was 
found.   Note  that  two  adjacent  apostrophes  cannot 
signify  the  end  of  a  literal. 

M  -01:   UNEXPECTED  CONTINUATION  CARD. 

A  NSFORT  source  program  card  (other  than  a  comment 
card)  with  a  non-zero,  non-blank  character  in 
column  6  was  encountered  as  the  first  card  in  a 
subprogram,  or  following  a  comment  card,-  or  follow- 
ing excessive  continuation  cards.   See  M  -02. 

M  -02:   EXCESSIVE  CONTINUATION  CARDS  OVER  19. 

A  statement  was  found  to  occupy  in  excess  of  20 
cards, 

NA-01 :   NO  CLOSE  SLASH  FOUND. 

A  slash  was  found  in  a  NAMELIST  statement  but  no 
corresponding  close  slash  was  found  in  the  remainder 
of  the  statement. 

NA-02:   VAR  IDENTIFIER  HAS  >  6  CHAR. 

An  identifier  was  found  to  have  mo-re  than  6  charac- 
ters.  More  than  6  characters  from  the  first 
character  of  the  identifier  to  a  comma,  a  slash,  or 
to  the  end  of  the  NAMELIST  statement  were  found. 
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NA-03:   ILLEGAL  CHAR  FOLLOWS  COMMA  OR  SLASH. 

The  character  following  a  comma  or  slash  was  expec- 
ted to  be  a  letter  of  the  alphabet  (or  $)  but 
another  character  was  found. 

NS-01:   NONSTANDARD  SYNTAX  ERROR. 

An  "*"  was  expected  as  the  6th,  8th,  or  13th  char- 
acter in  the  NONSTANDARD! *n  phrase,  but  was  not 
found.   (See  Appendix  D.) 

NS-02:   NONSTANDARD  TYPE  IS  NOT  1-6. 

A  character  other  than  1,2,3,^,5  or  6  was  found  pre- 
ceding the  "*"  in  the  NONSTANDARDi*n  phrase.   (See 
Appendix  D . ) 

NS-03:   NONSTANDARD  SIZE  IS  UNRECOGNIZABLE. 

A  non-numeric  character  was  found  immediately 
following  the  "*"_  in  the  NONSTANDARDi*n  phrase. 
(See  Appendix  D. ) 

NS^04:   NONSTD  SIZE  EXCEEDS  THREE  DIGITS. 

The  n  in  the  NONSTANDARD! *n  phrase  was  found  to- 
exceed  three  digits.   (See  Appendix  D.) 

NS-05:   NONSTD-N  USED  W/DIFFERENT  SIZE. 

Within  a  subprogram  a  particular  nonstandard  type 
was  used  with  differing  sizes.   This  inconsistency 
is  not  permitted.   (See  33  Appendix  H.) 

P  -01 !   UNRECOGNIZABLE  STATEMENT. 

The  translator  was  attempting  to  classify  a  state- 
ment but  could  not.   The  statement  was  determined  to 
be  neither  an  assignment  statement  nor  a  statement 
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function  and  the  first  two  characters  were  un- 
recognizable . 

PA-01:   UNMATCHED  PARENS  FOUND. 

An  open  parenthesis  was  found  but  no  corresponding 
close  parenthesis  was  located  in  the  remainder  of 
the  statement. 

R  -01:   UNFAMILIAR  READ  STMT  SYNTAX. 

The  translator  was  searched  for  the  beginning  of  the 
input  list.   If  an  open  parenthesis  follows  READ 
then  the  translator   failed  to  find  a  close  paren- 
thesis . 

R  -02:   ILLEGAL  1ST  CHAR  IN  I/O  LIST  ITEM. 

The  first  character  in  the  input  list  was  found  to 
be  other  than  an  open  parenthesis  or  letter  of  the 
alphabet. 

R  -03:   VAR  IDENTIFIER  HAS  >  6  CHAR. 

An  identifier  was  found  to  have  in  excess  of  6 
characters.   More  than  6  characters  from  the  first 
character  of  the  identifier  to  an  open  parenthesis, 
a  comma,  or  to  the  end  of  the  READ  statement  were 
found . 

R  -04:   READ  STMT  SYNTAX  ERROR. 

The  translator  did  not  find  a  comma  or  the  end  of 
•the  READ  statement  following  a  clcrse  parenthesis . 

T  -01:   1ST  LTR  OF  VAR  NAME  MUST  BE  A-Z,$. 

The  first  character  following  the  type*n  phrase  or 
following  a  comma  Is  not  a  letter  of  the  alphabet. 
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T  -02:   VAR  NAME  HAS  MORE  THAN  SIX  CHAR. 

An  identifier  was  found  to  have  in  excess  of  6 
characters .   More  than  6  characters  from  the  first 
character  of  the  identifier  to  an  asterisk,  an 
open  parenthesis,  a  slash,  a  comma,  or  to  the  end 
of  the  statement  were  found. 

T  -03:   ILLEGAL  '*'  IN  EXP  NONSTD  SPEC. 

An  asterisk  other  than  that  in  the  NONSTANDARD! *n 
phrase_or  those  identifying  nonstandard  function 
names  was  found.   (See  Appendix  D.) 

T  -04:   DESIGN  PARAMETER  EXCEEDED:   EXPLIST. 

The  number  and  length  of  explicitly  declared  vari- 
able names  exceeds  the  storage  capacity  for  this 
list.   (See  *J ,  Appendix  H.) 

T  -05:   DESIGN  PARAMETER ^EXCEEDED :   EXPNSL. 

The  number  and  length  of  explicitly  declared  non- 
standard variable  names  exceeds  the  storage  capacity 
for  this  list.   (See  5,  Appendix  H.) 

T  -06:   DESIGN  PARAMETER  EXCEEDED:   NSFNS. 

The  number  and  length  of  nonstandard  function  names 
exceeds  the  storage  capacity  for  this  list.   (See 
6 ,  Appendix  H. ) 

T  -07:   ILLEGAL  CHAR  AFTER  NONSTD  FN. 

Following  the  declaration  of  a  nonstandard  function 
name,  the  translator  expected  to  find  a  comma  or 
the  end  of  the  statement. 
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T  -08:   DESIGN  PARAMETER  EXCEEDED:   DIMLI ST. 
See  DI-03. 

T  -09:   NO  CLOSE  PAREN  FOUND. 

An  open  parenthesis  was  encountered  but  no  corres- 
ponding close  parenthesis  was  found  in  the  remainder 
of  the  statement. 

T  -10:   NO  CLOSE  SLASH  FOUND. 

An  open  slash  was  found  but  no  corresponding  close 
slash  was  found  in  the  remainder  of  the  statement. 

T  -11:   ILLEGAL  CHAR  FOLLOWS  PAREN  OR  SLASH. 

The  character  following  "*16",  "*__« 9    a  close  paren- 
thesis, or  a  close  slash  is  not  legal. 
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